Дан массив, например такой
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.
read(A[i,j])
не?