Не могу написать программу.

[v.olga]

Условие: Дано матрицу. Напечатать индексы элементов, которые наименьшее в своем ряде и одновременно наибольшие в своем столбце.

Я нашла min и max. Как сравнить не знаю.

Program Lab;
uses crt;
Const n=3;
m=4;
A:array[1..n, 1..m] of integer=((16,17,19,15),(3,2,8,9),(2 1,4,57,8));
var
i,j,k,l,n_i,n_j,max_s,min_r:integer ;
D:array[1..n,1..m] of integer;
C:array[1..n,1..m] of integer;
begin
ClrScr;
Writeln ('vivod massiva');
for i:=1 to n do
begin
for j:=1 to m do
write(' ',A[i,j]:4);
writeln;
end;
readkey;
begin
for i:=1 to n do begin
min_r:=A[i,1];
for j:=1 to m do
if min_r>=A[i,j] then begin min_r:=A[i,j]; n_i:=i; n_j:=j; end;
D[i,j]:=min_r;
writeln;
writeln('vivod min znach stroki');
writeln('D[',n_i,',',n_j,']=',D[i,j]:4);
end;end;

begin
for l:=1 to m do begin
max_s:=A[1,l];
for k:=1 to n do
if max_s<=A[k,l] then begin max_s:=A[k,l]; n_i:=k; n_j:=l; end;
C[k,l]:=max_s;
writeln;
writeln('vivod max znach stroki');
writeln('C[',n_i,',',n_j,']=',C[k,l]:4);
end;end;
readkey;
end.

Программа находит и выводит, как сделать чтобы сравнила и вывела порядковый номер?

[RUSt88]

по ходу девушка с западной украины...

пишите на русском, чтоб вас все понимали, и возможно больше народа откликнется и поможет вам

[RUSt88]

по ходу девушка с западной украины...

пишите на русском, чтоб вас все понимали, и возможно больше народа откликнется и поможет вам

[v.olga]

Прошу прощение.
Дано матрицу. Напечатать индексы элементов, которые наименьшее в своем ряде и одновременно наибольшие в своем столбце.

[Google2010]

смотреть!тут решение почти вашей задачки