Цитата
В массиве X(N,M) все числа различны, в каждой строке выбирается минимальный элемент,
затем среди этих чисел выбирается максимальный. Напечатать номер строки массива X, в котором он расположен.
затем среди этих чисел выбирается максимальный. Напечатать номер строки массива 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.
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.
