program Tin_hoc;

uses crt;

var i,n,k,min,max,d:integer;

     a: array [1..1000000] of integer;

begin

clrscr;

write('Nhap do dai cua mang: ');readln(n);

writeln('Nhap ',n,' phan tu cua mang:');

for i:= 1 to n do readln(a[i]); 

min:=a[1]; 

for i:= 2 to n do if a[i]<min then begin min:=a[i];k:=i end;

d:=0;

for i:= 1 to n do if a[i] = min then inc(d);

if d<> 1 then 

begin

max:=a[1]; k:=1;

for i:= 1 to n do if max<a[i] then begin max:=a[i];k:=i end;

writeln('Phan tu lon nhat cua mang la ',max,' o vi tri thu ',k)

end;

if d=1 then writeln('Phan tu nho nhat cua mang la ',min,' o vi tri thu ',k);

readln;

end.

program Hotrotinhoc;

var d,i,n,max,min: integer;

begin

write(n='); readln(n);

for i:=1 to n do

begin

write('a[',i,']='); readln(a[i]);

end;

max:=0; min:=32000;

for i:=1 to n do

if a[i]<min then min:=a[i];

for i:=1 to n do

if min=a[i] then inc(d);

if d>1 then

begin

for i:=1 to n do

if max<a[i] then a[i]:=max;

write(max);

end;

readln

end.