7. Написать программу, которая находит минимальный и максимальный элементы массива и выводит их индексы., Нашла максимальный и минимальный элемент, как вывести их индексы? Опции

[Nagare Boshi]

Program z7;
Var A:array [1..8] of integer;
    i,MAX, MIN:integer;
Begin
for i:=1 to 8 do
Begin
A[i]:=random(15)-5;
End;
WriteLn(A[i]);
MAX:=A[1];
for i:=2 to 8 do
Begin
if MAX<A[i] then
Max:=A[i];
End;
WriteLn(MAX);
for i:=2 to 8 do
Begin
if MIN>A[i] then
MIN:=A[i];
End;
WriteLn(MIN);
End.

Насчет минимального значения не уверена.
Как вообще можно узнать значение индекса элемента?

Сообщение отредактировано: Nagare Boshi - 8.01.2010 20:53

[Nagare Boshi]

А что значит at?