Program Vandat13012006;
uses crt;
var a : array[1..1000] of integer;
n,i,vt1,vt2 : integer;
min,max : integer;
begin clrscr;
vt1:=0; vt2:=0;
write('Nhap so phan tu cua mang :'); readln(n);
for i:=1 to n do begin
write('Nhap a[',i,']='); readln(a[i]); end;
min :=a[i];
max:=a[1];
for i:=2 to n do
if a[i] > max then begin
max:=a[i];
vt1:=i;
end;
for i:=2 to n do
if a[i]<min then begin
min :=a[i];
vt2:=i;
end;
writeln('Gia tri lon nhat la :', max,'tai vi tri',vt1);
write('Gia tri nho nhat la :', min,'tai vi tri',vt2);
readln
end.

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.