Задача с матрицой Опции

[kostya]

Пожалуйста, помогите решить задачу. Дана целочисленная, прямоугольная матрица. Найти номер строки, которая содержит максимальное кол-во нечётных элементов. Максимальное кол-во нечётных элементов я нашёл. Помогите вывести номер строки. Заранее спасибо.

[kostya]

Максимальное число я нашел так:

program pr1;
const n=4; m=4;
var
  a:array[1..n,1..m] of integer;
  b:array[1..n] of integer;
  i,j,x,y,max,ij:integer;

begin
  for i:=1 to n do begin
    for j:=1 to m do read(a[i,j]);
  end;

  for i:=1 to m do begin
    y:=0;
    for j:=1 to n do
      If a[i,j] mod 2=1 then y:=y+1;
    b[i]:=y;
  end;

  max:=-100;
  for i:=1 to n do begin
    If b[i]>max then max:=b[i];
  end;

Сообщение отредактировано: volvo - 6.12.2005 11:15