[Pascal Coding] Chương trình tìm số lớn thứ 2

PROGRAM FSQuocBinh;<br /> uses crt;<br /> var a:array [1..1000] of longint;<br /> i,n,max,kq: longint;<br /> kt: boolean;<br /> begin<br /> clrscr;<br /> Textcolor(Red);<br /> Writeln('Hellu, chuong trinh tim so lon thu 2 by F.S Quoc Binh');<br /> Textcolor(Yellow);<br /> Writeln('Loading...');<br /> Delay(1000);<br /> clrscr;<br /> Write('So Phan Tu n='); Readln(n);<br /> For i:=1 to n do<br /> begin<br /> Write('Nhap phan tu thu ',i,'='); Readln(a[i]);<br /> end;<br /> max:=a[1];<br /> for i:=1 to n do<br /> begin<br /> if (max<a[i]) then<br /> Begin<br /> kq:=max;<br /> max:=a[i];<br /> End;<br /> If (a[i]<max) and (a[i]>kq) then kq:=a[i];<br /> End;<br /> kt:=true;<br /> for i:=1 to n do if a[i]<max then<br /> begin<br /> kt:=false;<br /> break;<br /> end;<br /> Textcolor(Green);<br /> Writeln('Vay so lon thu 2 la:');<br /> If kt=true then write(max)<br /> else write(kq);<br /> Delay(10000);<br /> End.

[Pascal Coding] Chương trình tìm số lớn thứ 2

PROGRAM FSQuocBinh; uses crt; var a:array [1..1000] of longint; i,n,max,kq: longint; kt: boolean; begin clrscr; Textcolor(Red); Writ...

Đọc thêm »