vào tcn mk đánh giá 5 sao nha
Mình sẽ giải đáp bài này của bạn theo ngôn ngữ Pascal: 
program so_lon_nhi; 
var a:array [1..1000] of longint; 
i,n,max,kq: longint; 
kt:boolean; 
begin 
{Nhập dãy số} 
----------------------- 
writeln('so phan tu');readln(n); 
for i:=1 to n do 
begin 
writeln('nhap phan tu thu',i);readln(a[i]); 
end; 
{Tìm số lớn nhì} 
---------------------- 
max:=a[1]; 
for i:=1 to n do 
begin 
if (max<a[i]) then 
begin 
kq:=max; 
max:=a[i]; 
end; 
if (a[i]<max) and (a[i]>kq) then kq:=a[i]; 
end; 
{Kiểm tra và in kết quả} 
---------------------------------- 
kt:=true; 
for i:=1 to n do if a[i]<max then 
begin 
kt:=false; 
break; 
end; 
writeln('so lon thu hai'); 
if kt=true then write(max) 
else write(kq); 
readln 
end. 
Giải thích: 
Bước 1: nhập vào các giá trị của dãy. 
Bước 2: tìm giá trị lớn nhất (max) và giá trị lớn nhì (kq). 
Bước 3: kiểm tra trường hợp mảng có tất cả các phần tử bằng nhau và in ra kết quả max nếu biến kiểm tra kt=true, và in ra kết quả kq nếu biến kiểm tra kt=false.