uses crt;
type mang=array[1..10000] of longint;
var n,i,j,max,min,vt,d:longint;
a:mang;
begin
clrscr;
write('n='); readln(n);
for i:=1 to n do begin
write('a[',i,'=]');
readln(a[i]);
end;
max:=a[1]; vt:=1;
for i:=2 to n do
if a[i]>max then begin
max:=a[i];
vt:=i;
end;
writeln(' phan tu lon nhat la ',max,' o vi tri ',vt);
min:=a[1]; vt:=1;
for i:=2 to n do
if a[i]<min then begin
min:=a[i];
vt:=i;
end;
writeln(' phan tu nho nhat la ',min,' o vi tri ',vt);
d:=0;
for i:=1 to n do
if a[i] mod 2=0 then inc(d);
writeln(' co ',d,' so chan');
writeln(' co ',n-d,' so le');
write(' chi so phan tu co gia tri bang 10 la: ');
for i:=1 to n do
if a[i]=10 then write(i,' ');
readln;
end.