var a:array[1..100] of integer;
i,n,max,nomer:integer;
begin
writeln('введите число');  readln(n);
for i:=1 to n do begin a[i]:=random(50); write(a[i]:4);end;
writeln;
max:=1;
for i:=1 to n do
if a[i]>max then begin max:=a[i]; nomer:=i; end;
writeln('nomer=',nomer);
end.