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

1

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

Лучший Ответ!
  • Kitsu
  • почетный грамотей
2012-12-13T16:50:04+04:00

var i,a,s:integer;

begin

for i:=1 to 10 do begin readln(a); if a>0 then s:=s+a; end;

writeln(s);

end.