Подсчитать количество положительных элементов в каждом столбце матрицы размером МхN, элементы которой вводятся с клавиатуры.

Const

M = 3;

N = 4;

Var

A:array[1 ... M, 1 ... N] of integer;

i, j, k:integer;

Begin

WriteLn ('Введите матрицу A (', M,',', N,') : ') ;

For i: = 1 to M do

For j: = 1 to N do

Read (A[i, j]) ;

WriteLn ('Количества положительных элементов в столбцах:') ;

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,' ')

End;

End.