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.