Двумерный массив, Найти кол-во столбцов не сод 0 Опции

[Beseech]

В двумерном массиве найти количество столбцов, не содержащих нулей.

[Lapp]

В двумерном массиве найти количество столбцов, не содержащих нулей.

Попробуй вот так:

var
  a: array [1..m,1..n]of integer;

{...}

  k:=0;
  for j:=1 to n do begin
    i:=1;
    while (i<=m) and (a[i,j]<>0) do Inc(i);
    if i>n then Inc(k)
  end;
  writeln('кол-во столбцов без нулей равно ',k);