program timminmax;

uses crt;

var i,j,n,vtmax,vtmin: integer;

a :array[1..100] of real;

max,min : real;

begin

clrscr;

write('nhap vao so luong phan tu cua day '); readln(n);

for i:= 1 to n do

begin

write('nhap vao gia tri phan tu thu ',i,' = '); readln(a[i]);

end;

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

for i:=1 to n do

if a[i] > max then

begin

max:=a[i]; vtmax:=i;

end;

writeln('gia tri lon nhat la',max:7:2);

writeln('vi tri cua gia tri lon nhat la',vtmax);

min:=a[1]; vtmin:=1;

for j:= 1 to n do

if a[j] < min then

begin

min:= a[j]; vtmin:=j;

end;

writeln('gia tri nho nhat la ',min:7:2);

write('vi tri cua gia tri nho nhat la',vtmin);

readln;

end.