В каждой строке двумерной матрицы (n, m), состоящей их произвольных чисел, вычислить количество, сумму и среднее арифметическое отрицательных элементов

program zz1;

const n = 4;

m = 7;

var i, j, kol, s:integer;

sr:real;

b:array [1 ... n, 1 ... m] of integer;

begin

for i:=1 to n do

for j:=1 to m do / / получаем числа и записываем их в массив

b[i, j]:=random (101) - 50;

for i:=1 to n do / / выводим полученный массив на экран

begin

for j:=1 to m do

write (b[i, j]:4);

writeln;

end;

for i:=1 to n do

begin

for j:=1 to m do

if b[i, j] < 0 then begin kol:=kol + 1; s:=s + b[i, j]; sr:=s / kol; end;

writeln (' в ', i,'-ой строке количество = ', kol, ' сумма = ', s, ' среднее = ', sr:2:2);

kol:=0; s:=0; sr:=0;

end;

end.