Написать программу для решения следующей задачи: вычислить и вывести сумму и число отрицательных элементов каждой строки матрицы А(10,10).

const n=10;      m=10;var A: array [1..n,1..m] of integer;s, k, i, j: integer;beginrandomize;for i:= 1 to n dobeginfor j:= 1 to m dobeginA[i,j]:= -100 + random (100);write (A[i,j]: 5);end;writeln;end;for i:= 1 to n dobegin  s:=0;  k:=0;  for j:= 1 to m do     if A[i,j] < 0 then      begin         s:=s+A[i,j];        k:=k+1;     end;  writeln('в строке', i, '  отрицательных элементов' , k, '   s  отрицат. =  ', s);end;end.