Количество ненулевых элементов

[Ann_Sh]

Нужна помощь! Для данной целочисленной матрицы А[1..N, 1..N] найти номер строки, содержащей наибольшее число ненулевых элементов.

[Stilet]

В чем помощь?
Покажи как ты вводишь матрицу.

[Atoris]

begin
// Нужно объявить одномерный статический массив R
// сканируем матрицу A
  for I := 1 to N do
  begin
    W := 0: // В неё будет записываться кол-во ненулевых элементов (*)
    for J := 1 to N do
    begin
      if A[I,J] <> 0 then
      inc(W);
    end;
// Записываем в массив кол-ва (*)  на индексные места в соответствии со строками
    R[I]:= W;
  end;

  //Сканируем массив R и находим номер искомой строки
  Max := 0;
  for I := 1 to N do
  begin
    if R[I]> Max then
     Max:=I;
  end;



end.

[alex_fcsm]

Избавился от дополнительного массива

begin
// Нужно объявить одномерный статический массив R
// сканируем матрицу A
 Ind:=0;//номер строки с наибольшим кол-вом
 Cnt=-1;// кол-во ненулевых элементов
  for I := 1 to N do
  begin
    W := 0: // В неё будет записываться кол-во ненулевых элементов (*)
    for J := 1 to N do
    begin
      if A[I,J] <> 0 then
      inc(W);
    end;
  if W>Cnt then
    begin
     Cnt:=W;
     Ind:=i;
    end;
  end;

end.

[Ann_Sh]

Ребят, спасибо ...