uses crt;

var a : array[1..100] of integer;

i, n, min, max, cs1, cs2 : integer;

begin

clrscr;

write('Nhap so luong phan tu : '); readln(n);

for i := 1 to n do

begin

write('Nhap phan tu thu ', i ,' : ');

readln(a[i]); end;

min := a[n]; max := a[1]; cs1 := 1; cs2 := n;

for i := 2 to n do

if a[i] > max then begin max := a[i]; cs1 := i; end;

for i := n - 1 downto 1 do

if a[i] < min then begin min := a[i]; cs2 := i; end;

writeln('Phan tu lon nhat dau day : ', min ,' vi tri ', cs2);

writeln('Phan tu nho nhat cuoi day : ', max ,' vi tri ', cs1);

readln

end.

program baio1;

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

n,i:longint;

begin

repeat

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

until n>0;

for i:=1 to n do

begin

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

readln(a[i]);

END;

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

for i:=1 to n do

if a[i]>max then max:=a[i]

else min:=a[i];

write('...');

readln

end.