Question

Сделать программу в паскали найти, сколько положительных элементов содержит данная матрица в каждом столбце

Answer 1

Const
   maxElements = 1000;
var  arr : array[1..maxElements, 1..maxElements] of integer;
  counterArray : array[1..maxElements] of integer;
  i, j, n, m, countOfPositive: integer;
begin
  write('Введите количество строк: ');
  readln(n);
  write('Введите количество столбцов: ');
  readln(m); writeln('Введите элементы массивы');
  for i:=1 to n do
    for j:=1 to m do
      read(arr[i,j]);
 
  countOfPositive := 0;
  for j:=1 to m do
    begin
      for i:=1 to n do
        if arr[i,j] > 0 then Inc(countOfPositive);
      counterArray[j] := countOfPositive;
      countOfPositive := 0;
    end;
    writeln('Количество положительных элементов в каждом столбце');
  for j:=1 to m do
    write(counterArray[j], ' ');
end.