Двухмерный массив (кинозал)

[fudzy79]

приветствую всех. Такая задачка: есть 25 рядов по 30 мест (массив 25 на 30), заполняется рандомно нулями и единицами(0-свободное место, 1-занято). Необходимо найти, какой ряд не пользуется спросом, т.е. в каком ряду больше всего нулей. Сколько нулей в каждом ряду я нашел, а вот как найти в каком их больше недогоняю, второй день голова кипит, а засвистеть не может.
Скрин прилагается:

[Professor Hubert]

Сообщение от fudzy79

приветствую всех. Такая задачка: есть 25 рядов по 30 мест (массив 25 на 30), заполняется рандомно нулями и единицами(0-свободное место, 1-занято). Необходимо найти, какой ряд не пользуется спросом, т.е. в каком ряду больше всего нулей. Сколько нулей в каждом ряду я нашел, а вот как найти в каком их больше недогоняю, второй день голова кипит, а засвистеть не может.
Скрин прилагается:

Загнать количество нулей в рядах в массив и найти максимальный элемент массива. Кстати вы не написали в каком языке программирования пишете.
Если в Делфи то максимум ищется так.

  max:=M[1,1];
  for i:=1 to x do
    for j:=1 to y do
      if max<M[i,j] then
        max := M[i,j];
  MaxMatrix := max;

[SNUPY]

А вы [автор темы] не думали почему даны 0 и 1?

  Var
  Max, Sum:Cardinal;
  R,M,Rad:Byte;
  Mas:array [1..25,1..30] of Byte;//Хотя лучше было бы применять Boolean
  ....
  Max:=0;
  For R:=1 to 25 do
  begin
     Sum:=1;
     For M:=1 to 30 do
     begin
        Sum:=Sum+Mas[R,M];
     end;
     If Max<Sum then 
     begin
        Max:=Sum;
        Rad:=R;
     end;
  end;

[Alter]

Вот вам моё решение :
++me