Pascal:

Дан двумерный массив, который содержит не более 10 строк и не более 10 столбцов. Найти суммы отрицательных элементов каждого столбца.

Const n=10; m=10;

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

s, i, j: integer;

begin

randomize;

for i: = 1 to n do

begin

for j: = 1 to m do

begin

A[i, j]: = - 100 + random (100) ;

write (A[i, j]: 5) ;

end;

writeln;

end;

for i: = 1 to n do

begin

s:=0;

for j: = 1 to m do

if A[i, j] < 0 then s:=s+A[i, j];

writeln ('s ', i,' столбца=', s) ;

end;

end.