Массив индексы Опции

[BuTeK]

Добрый день !
Написал программу которая находит минимальный элемент во 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.

[volvo]

Если ты находишь минимум во втором и третьем столбце (колонна - это не из области программирования), то вот так:

    for q:=2 to 3  do begin
      tmp:=1;
      for i:=2 to 5 do

        if A[i,q]<A[tmp,q] then begin
          tmp:= i;
        end;

      writeln('A[',tmp,',',q,'] = ', A[tmp,q]);
    end;

Сообщение отредактировано: volvo - 14.01.2009 12:29

[BuTeK]

Я запустил Ваш варианнт программы, но у меня почему-то индексы не всегда правильно пишутся, также невсегда правильно находит минимальный элемент !

[volvo]

Исправлено

[BuTeK]

Большое спасибо всё работает !