Подскажите, составить программу вычесления: суммы всех положительных элементов массива.
буду благодарна.

1

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

2013-05-02T11:00:56+04:00

var

a:array[1..1000]of integer;

i,sum:integer;

begin

readln(n);

sum:=0;

for i:=1 to n do begin

read(a[i]);

inc(sum,a[i]);

end;

writeln(sum);

end.