program mass2;
uses crt;
var n,i,max,imax:integer; a:array[1..50] of integer;
begin
  clrscr;
  write('n=');readln(n);
  randomize;
  for i:=1 to n do
     begin
        a[i]:= random(5);
        write(a[i],' ');
     end;
  readln;
  max:=a[1];imax:=1;
  for i:=2 to n do
    if a[i]>max then
       begin
         max:=a[i];imax:=i;
       end;
  write('perv max el=',max,' imax=',imax);
  readln;
  end.