Нужна прога в паскале. Даю 20 б Подсчитать количество положительных элементов в каждом...

Question

Нужна прога в паскале. Даю 20 б
Подсчитать количество положительных элементов в каждом столбце матрицы размером МхN. элементы которой задаются с помощью датчика случайных чисел на интервале [-30; 40].

Answer 1

Const
   M = 3;
   N = 4;
Var
   A:array[1..M,1..N] of integer;
   i,j,k:integer;
Begin
Randomize;
WriteLn('Исходный массив:');
For i:= 1 to M do
    Begin
    For j:= 1 to N do
        Begin
        A[i,j]:=random(71)-30;
        Write(A[i,j]:3,' ')
        End;
    WriteLn;
    End;
Write('Номер столбца: ');
For j:= 1 to N do
    Write(j:3,' ');
WriteLn;
Write('Искомое кол-во:');
For j:= 1 to N do
    Begin
    k:=0;
    For i:= 1 to M do
        if A[i,j]>0 then k:=k+1;
    Write(k:3,' ');
    End;
End.

Пример:
Исходный массив:
 33 -21 -24   4
-20  28 -29  25
-15  -1  11   3
Номер столбца:   1   2   3   4
Искомое кол-во:  1   1   1   3