Tìm số lớn thứ nhì trong n số được nhập từ bàn phím.
Ví dụ: Nhập các sô 10; 10; 9; 9; 8 thì được số lớn nhì là 9.
Giải thuật:
- Nhập 2 số, Xác định giá trị cho hai biến Max, Nhi.
- Lần lượt nhâp các số. Với mỗi số được nhập xét:
- Nếu So > Max thì gán Nhi = Max, Max = So.
- Nếu Nhi < So < Max thì gán Nhi = So.
Cài đặ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<max) then nhi:=so; if so>max then Begin nhi:=max; Max:=so; End; End; Write('So thu nhi la: ',nhi); Readln End.