uses crt;
var n, i, max, maxx: longint;
    a: array[1..1000] of longint;

procedure solonnhat();
begin
    max:=trunc(-1e9);

    for i:=1 to n do
        if a[i] > max then max:=a[i];

    writeln('So lon nhat: ', max);
end;

procedure solonnhi();
begin
    maxx:=trunc(-1e9);
    for i:=1 to n do
        if a[i] = max then a[i]:=trunc(-1e9);
    
    for i:=1 to n do
        if a[i] > maxx then maxx:=a[i];
    writeln('So lon nhi: ', maxx);
end;

begin
clrscr;
    readln(n);
    for i:=1 to n do read(a[i]);

    solonnhat();
    solonnhi();
readln; readln;
end.

import sys
def lnhat(a,n):
    Max = a[0]
    for i in range (1,n):
        if (Max<a[i]): Max=a[i]
    return Max
def lnhi(a,n):
    Max=lnhat(a,n)
    Max2=-sys.maxsize
    for i in range (n):
        if (Max2<a[i]<Max): Max2=a[i]
    return Max2
n=int(input('nhap n: '))
a=[int(input('nhap a[%d]: '%i)) for i in range (1,n+1)]
print('lon nhat:',lnhat(a,n))
print('lon nhi:',lnhi(a,n))

$\color{green}{\text{Cần code C++ thì nói để mình thêm}}$

$\color{red}{\text{#Daoanhviet96}}$