uses crt;
var a:array[1..100]of integer;
min,max,n,i:integer;
begin
clrscr;
write('N -> ');
readln(n);
write('Массив -> ');
for i:=1 to n do read(a[i]);
readln;
min:=1;
max:=2;
for i:=1 to n do if a[i]>=a[max] then max:=i else if a[i]<=a[min] then min:=i;
write('Индекс экстремального элемента - ');
if min > max then writeln(min) else writeln(max);
readln;
end.