Дана действительная матрица размером n х m, все элементы которой разны.

uses crt;
const n=5; m=4;
var a:array[1..n,1..m]of integer;
i,j,k,b:integer;
f:boolean;
nbsp;
function max(k:integer):integer;
var j,s,m:integer;
begin
nbsp;m:=1;
nbsp;for j:=1 to m do if a[k,j]gt;a[k,m] then m:=i;
nbsp;max:=m;
end;
nbsp;
begin
nbsp;clrscr;
nbsp;randomize;
nbsp;writeln(Исходная матрица);
nbsp;for i:=1 to n do
nbsp;begin
nbsp;nbsp;for j:=1 to m do
nbsp;nbsp;begin
nbsp;nbsp;nbsp;a[i,j]:=-20+random(60);
nbsp;nbsp;nbsp;write(a[i,j]:4);
nbsp;nbsp;end;
nbsp;nbsp;writeln;
nbsp;end;
nbsp;
nbsp;for i:=1 to n do writeln(Наибольший элемент в ,i,-й строке A[,i, ,max(i), = ,a[i,max(i)]);
nbsp;readln;
end.

var nbsp;nbsp;n:Integer; mn:Double; mj:Integer;
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;mx:Double;
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;mxi, nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;mxj:Integer;
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;i,j:Integer;
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;T:array of array of Double;
nbsp;n:=Length(T);
nbsp;nbsp;nbsp;mx:=T[0,0];
nbsp;nbsp;nbsp;mxi:=0;
nbsp;nbsp;nbsp;mxj:=0;
nbsp;nbsp;nbsp;for i:=0 to N-1 do
nbsp;nbsp;nbsp;begin //Обязан быть
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;mn:=T[i,0];
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;mj:=0;
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;begin
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;for j:=0 to n-1 do
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;if mngt;T[i,j] then nbsp;
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;begin
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;mn:=T[i,j];
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;mj:=j;
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;end;
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;if mxlt;mn then
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;begin
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;mx:=mn;
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;mxi:=i;
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;mxj:=mj;
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;end;
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;end;
nbsp;nbsp;nbsp;end;

de: pascal
const n=8;количество строк
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;m=10;количество столбцов
Var a: array [1..n,1..m] of real;данная матрица
nbsp;nbsp;nbsp;nbsp;i,j,k,l,v:integer;
nbsp;nbsp;nbsp;nbsp;minj,maxi:real;
BEGIN
заполнение матрицы случайными положительными действительными числами от 0 до 99
randomize;
For i:=1 to n do
nbsp;For j:=1 to m do
nbsp;nbsp;nbsp;a[i,j]:=random(100);
maxi:=-1;так как все числа положительные (мы сами так заполнили)
For i:=1 to n do begin
nbsp;minj:=a[i,1];представим что 1-ый элемент каждой i-ой строчки малый
nbsp;For j:=2 to m do
nbsp;nbsp;сопоставляем все другие элементы строки с теснее отысканным наименьшим
nbsp;nbsp;If a[i,j]lt;minj then beginесли он меньше теснее отысканного то
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;minj:=a[i,j];он малый
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;v:=j;сохраняем его номер столбца
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;end;
проверяем только что приобретенный элемент на максимум
nbsp;If minjgt;maxi then beginесли правильно то сохраняем его и его индексы
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;k:=i;
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;l:=v;
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;maxi:=minj;
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;end;
end;
Выводим искомый элемент и его индексы хоть в едите хоть в лабеле
nbsp;
END.