1.
Program HOC24;
var i,n,max,max2: integer;
a: array[1..32000] of integer;
begin
write('n='); readln(n);
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
max:=a[1]; max2:=a[1];
for i:=1 to n do if a[i]>max then max:=a[i];
for i:=1 to n do if (a[i]>max2) and (a[i]<>max) then max2:=a[i];
writeln('So lon thu nhi cua day la : ',max2);
write('Cac chi so la : ');
for i:=1 to n do if a[i]=max2 then write(i,' ');
readln
end.
2.
Program HOC24;
var i,n,min,min2: integer;
a: array[1..32000] of integer;
begin
write('n='); readln(n);
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
min:=a[1]; min:=a[1];
for i:=1 to n do if a[i]<max then min:=a[i];
for i:=1 to n do if (a[i]<min2) and (a[i]<>min) then min2:=a[i];
writeln('So lon thu nhi cua day la : ',min2);
write('Cac chi so la : ');
for i:=1 to n do if a[i]=min2 then write(i,' ');
readln
end.