А будет равно 10, так как а > 5, но b не больше a
Var
n,s,k,a,i:integer;
begin
Read(n);
s:=0; k:=0;
for i:=1 to n do begin
Read(a);
s:=s+a;
if a mod 2=0 then Inc(k)
end;
Writeln(s,' ',k)
end.
Результат
7 2 3 -2 4 -7 10 1
11 4
Биты,байты,алгоритмы,
Обработка информации,
Как компьютер подобрать
Нужной нам конфигурации-
Все о мире виртуальном
Знает этот человек!
Любим все без исключенья
Информатики предмет!
И в реальном мире Вас
Мы сегодня поздравляем!
И реальных Вам побед
И успехов Вам желаем!