Написал программу которая находит минимальный элемент во 2-ой и 3 колонне !
Но незнаю как вывести их индексы ! Помогите пожалуйста !
Program masssiv;
Uses CRT;
var tmp,q,j,i,k,l: integer;
A:array[1..5,1..5] of integer;
begin
clrscr;
randomize;
for i:=1 to 5 do
begin
for j:=1 to 5 do
begin
A[i,j]:=Random(18)-9;
write(A[i,j]:5);
end;
writeln;
end;
tmp:=A[1,2];
for i:=1 to 5 do
for q:=2 to 2 do
if A[i,q]<tmp then
begin
tmp:= A[i,q];
end;
writeln(tmp);
tmp:=A[1,3];
for i:=1 to 5 do
for q:= 3 to 3 do
if A[i,q]<tmp then
begin
tmp:= A[i,q];
end;
writeln(tmp);
readln;
end.