var i,s,n:integer; a:array[1..10000] of integer;
begin
randomize;
s:=0;
readln(n);
for i:=1 to n do
a[i]:=random(10)-5;
write(a[i],' ');
if a[i]>0 then s:=s+a[i];
end;
writeln;
write('s=',s);
end.
Объяснение:
var i,s,n:integer; a:array[1..10000] of integer;
begin
randomize;
s:=0;
readln(n);
for i:=1 to n do
begin
a[i]:=random(10)-5;
write(a[i],' ');
if a[i]>0 then s:=s+a[i];
end;
writeln;
write('s=',s);
end.
Объяснение: