Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
ngoc tran

cho số nguyên dương n và dãy số a,a2,...,an .Em hãy lập trình tìm số nguyên dương lớn thứ nhì trong dãy số đó(lập trình pascal)

 

Nguyễn Lê Phước Thịnh
7 tháng 2 2022 lúc 23:29

uses crt;

var a:array[1..100]of integer;

i,n,tam,j:integer;

begin

clrscr;

readln(n);

for i:=1 to n do readln(a[i]);

for i:=1 to n-1 do 

  for j:=i+1 to n do

if (a[i]>a[j]) then 

begin

tam:=a[i];

a[i]:=a[j];

a[j]:=tam;

end;

writeln(a[n-1]);

readln;

end.


Các câu hỏi tương tự
30. Hoàng Nhơn
Xem chi tiết
TBNT
Xem chi tiết
ngoc tran
Xem chi tiết
Du Ng
Xem chi tiết
Du Ng
Xem chi tiết
Nguyên GM Nguyễn
Xem chi tiết
Ngọc 11A7 Hoàng thị
Xem chi tiết
Mộng Chúc
Xem chi tiết
26-Do Thanh Trung
Xem chi tiết