Помогите с задачей.
Вводится последовательность целых чисел, до тех пор пока не введено число n
Найти сумму положительных среди них?

1

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

Лучший Ответ!
2014-02-04T15:17:42+00:00
Var n,i,s,a:integer;
begin
readln(n);
for i:=1 to n do begin
readln(a);
if a>0 then
s:=s+a;
end;
write(s);
end.