How frequently does the letter i appear in:
Q: Поиск нулей в двумерном массиве Дан массив, например такой
0 0 1
1 1 0
1 1 1

Требуется вывести номер ряда,где больше всего нулей. В массиве могу присутствовать только единицы или нули. Вот мой код,но программа работает не правильно.Помогите понять,где я допустил ошибку.
var
  i,j,n,m,max,l:integer;
  A:array [1..100,1..100] of integer;
begin
   readln(n);
   readln(m);
   for i:=1 to n do  begin
     for j:=1 to m do begin
       read(A[i,j]);
       if A[i,j]=0  then
         l:=l+1;
       if l > max then
         max:=i;
     end;
   end;
   writeln(max);
end.

A: var
  i, j, n, m: Integer;
  RowWithMaxZeroes: Integer;
  MaxZeroesInRow: Integer;
  ZeroesInRow: Integer;
  A: array [1..100, 1..100] of Integer;
begin
    ReadLn(n);
    {Здесь нужно проверить, что n не больше 100 и что-то сделать, если оно больше}
    ReadLn(m);
    {Здесь нужно проверить, что m не больше 100 и что-то сделать, если оно больше}
    RowWithMaxZeroes := 0;
    MaxZeroesInRow := 0;
    for i := 1 to n do
    begin
      ZeroesInRow := 0;
      for j := 1 to m do
      begin
        Read(A[i, j]);
        if A[i, j] = 0  then
          ZeroesInRow := ZeroesInRow + 1;
      end;
      if ZeroesInRow > MaxZeroesInRow then
      begin
        MaxZeroesInRow := ZeroesInRow;
        RowWithMaxZeroes := i;
      end;
    end;
    WriteLn(Row with max zeroes: , RowWithMaxZeroes);
end.

После ввода m и n хорошо бы проверить, что они не больше 100 :)
P.S.: l плохое имя для переменной, оно путается с i.

A: *

*Перед проходом по ряду надо обнулять переменную l

*Проверять максимальное ли количество l после прохода по рядку

*Если это максимум то надо запомнить еще номер ряда, чтобы его потом вывести

user
The given text has 46 "i"s.
assistant