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

Что бы считалась сумма отрицательных элементов в каждом столбце, нужно обнулить сумму (s:=0) в цикле по j ! "Исправлятели!"

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 dobeginfor 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.