паскаль
Напишите программу, которая 10 раз запрашивает ввод целого числа. При завершении ввода на экран выводится сумма чисел, минимальное число, максимальное число.
Напишите программу, которая 10 раз запрашивает ввод целого числа. При завершении ввода на экран выводится сумма чисел, минимальное число, максимальное число.
More Questions From This User See All
Answers & Comments
Verified answer
Program Lana132;uses crt;
const n=10;
var
i,ch,max,min,sum:integer;
begin
writeln('*** Alphaeus is thinking... ***');
writeln('*** OK ***');
writeln(); writeln();
writeln('Программа запрашивает N чисел, находит их сумму, максимальное и минимальное число');
sum:=0;
write('Введите 1-e число: '); read(ch);
sum:=sum+ch;
max:=ch; min:=ch;
for i:=2 to n do
begin
write('Введите ',i,'-e число: '); read(ch);
sum:=sum+ch;
if max<ch then max:=ch;
if min>ch then min:=ch;
end;
writeln('Сумма всех чисел равна ',sum);
writeln('Максимальное число равно ',max);
writeln('Минимальное число равно ',min);
end.