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

Const   M = 3;   N = 4;Var   A:array[1..M,1..N] of integer;   i,j,k:integer;BeginRandomize;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