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

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

номер строки массива Х, в которой расположено выбранное число.

Const

n1=1000;

m1=1000;

var

n, m, i, j, min, max, i_max:integer;

a:array[1 ... n1,1 ... m1]of integer;

begin

writeln ('введите кол строк и столбцов') ;

readln (n, m) ;

for i:=1 to n do

for j:=1 to m do

readln (a[i, j]) ;

for i:=1 to n do

begin

writeln;

for j:=1 to m do

write (a[i, j]:4) ;

end;

max:=-32767;

for i:=1 to n do

begin

min:=a[i, 1];

for j:=1 to m do

if a[i, j]
min:=a[i, j];

if min>max then

begin

max:=min;

i_max:=i;

end;

end;

writeln;

writeln ('i: ', i_max,' znach: ', max) ;

end.