program oken;
uses crt;
var a: array [1..1000] of integer;
n,max,vtmax,min,vtmin,i: integer;
begin
clrscr;
write('Nhap so phan tu cua mang: '); readln(n);
for i:=1 to n do
begin
write('a[',i,']: '); readln(a[i]);
end;
max:=a[1]; min:=a[1]; vtmax:=1; vtmin:=1;
for i:=2 to n do
if max<a[i] then
begin
max:=a[i];
vtmax:=i;
end
else
if min>a[i] then
begin
min:=a[i];
vtmin:=i;
end;
writeln('So lon nhat: ',max,' Vi tri: ',vtmax);
writeln('So nho nhat: ',min,' Vi tri: ',vtmin);
readln;
end.
