Question

Дан целочисленный массив размером 15.Найти сумму отрицательных элементов

Answer 1

const n=15;

var m:array [1..n] of integer;

i,s:integer;

begin

write('Массив: ');

for i:=1 to n do

begin

m[i]:=random(41)-20;

if m[i] < 0 then s:=s+m[i];

write(m[i],'  ')

end;

writeln;

writeln('Сумма отрицательных элементов: ',s)

end.