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

1

Ответы и объяснения

Лучший Ответ!
2012-12-13T15:47:40+04:00

Program Summa;
Uses CRT;
var a,sum:integer;
Begin
Write('Введите 10 положительных и 10 отрицательных чисел');
Read(a);
sum:=0;
if a > 0 then sum:=sum+a;
writeln('sum=',a)

end.