program try;
const
n=25;
var
mas :array[1..n] of integer;
i,s :integer;
begin
randomize;
s:=0;
for i:=1 to n do
begin
mas[i]:=random(51)-25;
if mas[i]>0 then
s:=s+mas[i];
end;
writeln('Сумма ',s);
end.
program try;
const
n=25;
var
mas :array[1..n] of integer;
i,s :integer;
begin
randomize;
s:=0;
for i:=1 to n do
begin
mas[i]:=random(51)-25;
if mas[i]>0 then
s:=s+mas[i];
end;
writeln('Сумма ',s);
end.