viết chương trình nhập mảng tìm số thứ nhì trong n số được nhập từ bàn phím. vd: nhập các số 10;10;9;9;8 thì được số lớn thứ nhì là 9.

program lonnhi;

uses crt;

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

      n,i,j,tg:integer;

begin

clrscr;

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

for i:=1 to n do

  begin

        write('Nhap so thu ',i,': ');    readln(A[i]);

  end;

write('Mang vua nhap la: ');

for i:=1 to n do write(A[i],' ');

for i:=1 to n-1 do

   for j:=i+1 to n do

        if A[i]<A[j] then

               begin

                      tg:=A[i];

                      A[i]:=A[j];

                      A[j]:=tg;

               end;

i:=2;

while A[i]=A[1] do i:=i+1;

write('So lon nhi trong mang la: ',A[i]);

readln

end.