Листинг программы
program z19;{Дан прямоугю массив сост из различ элм.
В каждой строке выбирается мин. элм., а среди них максю элм.
Напечатать номер строки в кот расположено получ. число }
uses crt;
var i,j,k,m,n,min,max:longint;
a:array[1..50,1..50]of longint;
b:array[1..70]of longint;
begin
clrscr;textcolor(11);
write('введите кол-во столбцов: ');readln(m);
write('введите кол-во строк: ');readln(n);
for j:=1 to n do
for i:=1 to m do
begin
write('a[',j,',',i,']=');readln(a[j,i]);
end;
k:=1;
for j:=1 to n do
begin
min:=a[j,1];
for i:=2 to m do
if min>a[j,i] then min:=a[j,i];
b[k]:=min;inc(k);
end;
max:=b[1];
for j:=2 to k-1 do if max<b[j] then max:=b[j];
for j:=1 to n do
for i:=1 to m do
if a[j,i]=max then begin
write('№ строки:',j);
readln;halt;
end;
end.
