radiotexnik

я в 9 классе, вот что могу
третья задача
матрица А:
Код:


Const M = 10; N = 10;
Var A:array[1..N,1..M] of Integer;
B:array[1..M] of Integer;
I,J:Integer;
begin
For I:=1 To M Do
Begin
B[I]:=0;
For J:=1 To N Do
If A[J,I] < 0 Then
Inc(B[I]);
End;
end.