Помоги пожалуйста Паскаль

Question

Помоги пожалуйста Паскаль

---

Answer 1

С массивом.

Program n_1;

var s, i:integer; a:array [1..10] of integer;

begin

s:=0;

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

writeln(s);

end.

Без массива.

Program n_1;

var s, a, i:integer;

begin

s:=0;

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

writeln(s);

end.