Lindgren Lars-OlofНапишите программу, которая в последовательности целых чисел определяет их сумму и количество чётных чисел. Программа получает на вход целые числа и количество введённых чисел. Программа должна вывести два числа: сумму последовательности и количество чётных чисел. Написать в ПАСКАЛЕ
ответы: 1
Зарегистрируйтесь, чтобы добавить ответ
Ответ:
Program prog;
var n, i, s, c, t: integer;
begin
s:=0;
c:=0;
read(n);
for i:=1 to n do begin
read(t);
s:=s+t;
if t mod 2 = 0 then c:=c+1;
end;
writeln(s,' ', c);
end.
309
VeikkoЧтобы ответить необходимо зарегистрироваться.
