Составить программу, использовать оператор цикла с заданным количеством повторов ... Ввести 10 элементов, посчитать их сумму, количество четных, найти минимальное.

Question

Информатика

Парасковя

6 сентября, 13:59

Составить программу, использовать оператор цикла с заданным количеством повторов ... Ввести 10 элементов, посчитать их сумму, количество четных, найти минимальное.

+1

Ответы (1)

Знаете ответ на вопрос?

Нэжма · Answer 1

Var i, n, min, sum, chet:integer;

begin

min:=0;

chet:=0;

sum:=0;

for i:=1 to 10 do

begin

readln (n) ;

sum:=sum+n;

if min>n then min:=n;

if n mod 2=0 then chet:=chet+1;

end;

writeln (sum, min, chet) ;

end.