program zada4a_4_1;
var
a:array[1..1000] of real;
n,imax,i:integer;
max:real;
begin
writeln('n=');
readln(n);
for i:=1 to n do
begin
write('a[',i,']=');
readln(a[i]);
end;
max:=a[1]; imax:=1;
for i:=1 to n do
if a[i]>max then
begin
imax:=i;
max:=a[i];
end;
writeln('max=',max:5:2,'imax=',imax);
end.