const n=10;
var a:array[1..n]of integer;
i,s:integer;
begin
s:=0;
writeln('исходный массив:');
for i:=1 to n do begin
a[i]:=-5+random(11);
write(a[i],' ');
if a[i]<0 then s:=s+a[i];
end;
writeln;
writeln('сумма отрицательных чисел ',s);
end.
const n=10;
var a:array[1..n]of integer;
i,s:integer;
begin
s:=0;
writeln('исходный массив:');
for i:=1 to n do begin
a[i]:=-5+random(11);
write(a[i],' ');
if a[i]<0 then s:=s+a[i];
end;
writeln;
writeln('сумма отрицательных чисел ',s);
end.