С клавиатуры вводится 10 целых чисел. подсчитать, сколько положительных чисел были введены и их суммы.

program zz1;

var a, b, r, i:integer; / / задаем переменные целого типа

begin

for i:=1 to 10 do / / организуем цикл на десять повторений

begin

read (a); / / вводим очередное число с клавиатуры

if a > 0 / / проверяем условие, если введенное число больше нуля, то

then begin r:=r + a; b:=b + 1; end; / / добавляем число в сумму и считаем его

end;

writeln (' сумма положительных чисел среди введенных = ', r); / / выводим ответы

writeln (' количество положительных чисел среди введенных = ', b);

end.