Дана действительная матрица размером n*m, все элементы которой различны. В каждой строке этой матрицы выбрать элемент с наименьшем значением, а затем среди них выбрать элемент с наибольшем значением. Указать индекс этого эл-та.
program matr;
const n=5;
m=5;
var a:array[1..n,1..m] of real;
i,j,ni,nj,nni,nnj:integer;
min,max:real;
begin
writeln('введите элементы матрицы');
for i:=1 to n do
for j:=1 to m do
readln(a[i,j]);
max:=a[1,1]; nni:=1; nnj:=1;
min:=a[i,1];ni:=i;nj:=1;
if a[i,j]
if min>=max then begin max:=min; nni:=i; nnj:=nj end;
end;
writeln('результат=', max:8:2);
writeln('строка=', nni);
writeln('столбик=', nnj);
readln
end.
Буду благодарна, если отметите.