Pascal - Tìm số lớn thứ nhì trong n số được nhập từ bàn phím

Pascal - Tìm số lớn thứ nhì trong n số được nhập từ bàn phím

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.
Bạn thấy bài viết này như thế nào?: 
Average: 4.7 (3 votes)

Advertisement

 

jobsora

Dich vu khu trung tphcm

Dich vu diet chuot tphcm

Dich vu diet con trung

Quảng Cáo Bài Viết

 
Sony chính thức công bố loạt ultrabook Vaio chạy Windows 8

Sony vừa chính thức công bố loạt ultrabook mới có thương hiệu Vaio chạy hệ điều hành Windows 8 sắp ra mắt của Microosoft, bao gồm Vaio 11 Duo, T-series, E-series, cùng với đó là MTXT S-series.

Apple sẽ sử dụng camera 3D lên các sản phẩm tiếp theo
Apple sẽ sử dụng camera 3D lên các sản phẩm tiếp theo

Apple có thể đang trong quá trình chuẩn bị để mang camera 3D lên các thiết bị tiếp theo của hãng.

Facebook muốn tặng không smartphone cho người dùng
Facebook muốn tặng không smartphone cho người dùng

Hôm qua (25/11), trang công nghệ Businessinsider dẫn lời 2 nguồn tin thân cận với dự án Facebook Phone, cho biết giới lãnh đạo mong muốn tặng không dế cưng cho người dùng.