Question

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

Answer 1

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.