работа с массивами, максимальный среди минимальных по строкам Опции

[mithquessir]

Помогите, пожалуйста, решить задачу:

В массиве X(N,M) все числа различны, в каждой строке выбирается минимальный элемент,

затем среди этих чисел выбирается максимальный. Напечатать номер строки массива X, в котором он расположен.

Бьюсь уже несколько дней, но ничего не получается.
Идея такова: сканируется первая и находится минимальный элемент. Когда начинает сканироваться новая строка, проверяется max < min и в t заносится номер строки. А почему же не работает?

Код

var
 x: array[1..3,1..3] of integer;
 i,j,k,n,t,max,min:integer;
begin
 k := 1;
 t := 0;
 n := 1;
 x[1,1] := 1;
 x[1,2] := 2;
 x[1,3] := 3;
 x[2,1] := 4;
 x[2,2] := 5;
 x[2,3] := 6;
 x[3,1] := 7;
 x[3,2] := 8;
 x[3,3] := 9;
 min := x[1,1];

 for i := 1 to 3 do
 for j := 1 to 3 do
 begin
   if k < i then
   begin
     if x[i,j] < min
     then min := x[i,j];
     if n = 1 then
     begin
       max := min;
       n := 0;
     end;
     if max < min then
     begin
       max := min;
       t := i;
     end;
     inc(k);
     min := x[i,j];
   end
   else
   begin
     if x[i,j] < min
     then min := x[i,j];
   end;
 end;
 WriteLn(t);
end.

Сообщение отредактировано: мисс_граффити - 13.06.2007 10:11

[mithquessir]

Спасибо большое, а как решается такая задача:

Ввести число "n" и заполнить двухмерныый массив размером n * n натуральными числами до n * n  до по спирали

?