Question

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

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.