Question

В квадратной матрице порядка N найти в каждом столбце отдельно количество элементов, превышающих число 5.

Answer 1

Var
  M: array[1..255, 1..255] of integer;
  a,b,n,i: integer;begin
  write('N: ');
  read(n);
  // Заполнение матрицы
  for a:=1 to n do
    for b:=1 to n do
      begin
        write(a,';',b,':');
        read(M[a,b]);
      end;
  // Обработка матрицы
  for b:=1 to n do
    begin
    i:=0;
    for a:=1 to n do
      if M[a,b] > 5 then i+=1;
    writeln(b,' столбец: ', i);
    end;
end.