program gtln;
uses crt;
var i,n,max,min,max2:integer;
    A:Array[1..100] of integer;
begin
        clrscr;
        write('Nhap so phan tu la: ');
        readln(n);
        for i:=1 to n do
                begin
                        write('Nhap phan tu thu ',i,': ');
                        readln(A[i])
                end;
        max:=A[1];
        for i:=2 to n do
        begin
                if max<A[i] then max:=A[i];
                if min>a[i] then min:=a[i];
        end;
        max2:=min;
        for i:=1 to n do
        if (a[i]>max2) and (a[i]<>max) then max2:=a[i];
        writeln('Gtln la: ',max);
        writeln('Gia tri lon thu hai: ',max2);
        readln;
end.

THUẬT TOÁN:
B1: nhập mảng

B2: xắp xếp mảng theo thứ tự không giảm

B3: thông báo kết quả ra màn hình

GT: vì ta đã xắp mảng theo thứ tự không giảm nên phần tử thứ n là phần tử lớn nhất, phần tử thứ n-1 là lớn thứ 2

CHƯƠNG TRÌNH:

uses crt;
var n,i,j,tg: integer;
    a: array[1..100] of integer;
begin
clrscr;
    write('Nhap so phan tu la: ');
    readln(n);
    for i:=1 to n do begin
        write('Nhap phan tu thu ',i);
        readln(a[i]);
    end;
    for i:=1 to n do 
        for j:=1 to i do
            if a[i]<a[j] then begin
                tg:=a[i];
                a[i]:=a[j];
                a[j]:=a[i];
            end;
    writeln('GTLN la: ',a[n]);
    writeln('GT lon thu 2 la: ',a[n-1]);
    readln
end.