Составьте программу вычисления в массиве В, состоящем из восьми элементов, суммы отрицательных элементов.

паскаль

var a, b, sum:integer;

arr : array [0 ... 7] of integer;

begin

sum:=0;

write ('введите элементы массива : ') ;

for a:=0 to 7 do begin

read (b) ;

arr[a]:=b;

end;

for a:=0 to 7 do begin

if arr[a]<0 then sum:=sum+arr[a];

end;

writeln ('сумма отрицательных элементов массива = ', sum) ;

end.