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

     var a,b,sum:integer;arr :array [0..7] of integer;beginsum:=0;write('введите элементы массива : ');for a:=0 to 7 do beginread(b);arr[a]:=b;end;for a:=0 to 7 do beginif arr[a]<0 then sum:=sum+arr[a];end;writeln('сумма отрицательных элементов массива = ',sum);end.