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

[kostya]

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

[klem4]

что конерктно не получается ?

[kostya]

Вывести номер строки

[volvo]

Программу, как ты находишь макс. кол-во элементов, приведи...

[klem4]

ф-я возвращает количество нечетных элементов в строке i

const
   n=10;
type
   TMx = array[1..n,1..n] of integer;
...
function GetCount(x : TMx; i : byte) : byte;
var
   count,j: byte;
begin
   count := 0;
   for j := 1 to n do
    if odd(x[i,j]) then inc(count);
   GetCount := count;
end;

[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

[zetsokol]

для того чтоб найти строку в какой больше нечетных нужно их сравнить

........
read(n);
........
for s:=1 to n-1 do begin

    for i:=1 to n-s do begin
          Nechet1:=0; Nechet2:=0;
              for j:=1 to k do if odd(a[i,j]) then Nechet1:=Nechet1+inc(count);
                       for j:=1 to k do if odd(a[i+1,j])  Nechet2:=Nechet2+inc(count)

                       if Nechet1>Nechet2  then
           ..................................................
                    write(i); {вывод номер строки}
                      end;
                   end;

Вот, что-то примерно так если, что не обижайся

[volvo]

zetsokol, объясни мне, зачем тебе понадобилось 4 вложенных цикла, когда здесь 2 за глаза хватит?

Кстати, с чего это ты решил, что

7. Проверяйте программы перед тем, как запостить их!!!

к тебе уже не относится?

kostya,
исправь вот так:

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

теперь у тебя в max будет номер строки

[kostya]

Спасибо вам всем большое!