Множества, Выдать на печать номер позиции Опции

[Студентик13]

Пожалуйста помогите решить эту задачу. Заранее Благодарен.
Дана последовательность чисел. Выдать на печать номер позиции. В которой находится наибольший член последовательности

[klem4]

Последовательность где-то хранится ? В массиве ? В файле ?

[Shura]

И причем тут множества? Если последовательность в массиве, то вот:

Код

Uses
Crt;

Const
n = 10;

Var
a: Array [1..n] of ShortInt;
max: ShortInt;
i, nmax: Byte;

{****************************************************************************}

Begin
Randomize;
ClrScr;

max:=-127;
nmax:=1;
for i:=1 to n
do begin
     a[i]:=Random(100)-50;
      if a[i] > max
      then begin
        max:=a[i];
        nmax:=i
       end;
     Write(a[i]:4)
    end;
WriteLn;
Write('Maksimal''niy element raven ', max, ' i on zanimaet ', nmax, '-e');
WriteLn(' mesto v posledovatel''nosti.');
ReadLn
End.