Nhập vào số nguyên dương n và n số nguyên từ bàn phím, in ra số lớn thứ nhì trong n số nguyên do

Hay nhất

Program So_lon_nhi;

Var n,i,so, nhi,max,tam:integer;

Procedure swap[var x,y:real];

var tam:real;

begin

tam:=x;

x:=y;

y:=tam;

end;

Begin

Write[‘Nhap n: ‘];Readln[n];

Write[‘nhap so:’];Readln[max];

Write[‘nhap so: ‘];Readln[nhi];

if nhi > Max then swap[Max,nhi]

For i:= 3 to n do

Begin

Write[‘Nhap so: ‘];Readln[so];

if [so>nhi] and [so

if so>max then

Begin

nhi:=max;

Max:=so;

End;

End;

Write[‘So thu nhi la: ‘,nhi];

Readln

End.

• lý thuyết
• trắc nghiệm
• hỏi đáp
• bài tập sgk

Viết chương trình cho phép nhập từ bàn phím số nguyên dương của n rồi thực hiện

a] in ra số x