Bài 11: Kiểu mảng

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

Giúp em với ạNhập vào một mảng các số nguyên.

a/ Xếp lại mảng đó theo thứ tự giảm dần.

b/ Nhập vào một số nguyên từ bàn phím. Chèn số đó vào mảng sao cho mảng vẫn có thứ tự giảm dần. (không được xếp lại mảng)

Nguyễn Lê Phước Thịnh
27 tháng 1 2021 lúc 23:08

uses crt;

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

i,n,j,tam:integer;

begin

clrscr;

write('Nhap n='); readln(n);

for i:=1 to n do 

  begin

write('A[',i,']='); readln(a[i]);

end;

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('Day so xep giam dan la: ');

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

readln;

end.


Các câu hỏi tương tự
Võ Phương Nghi
Xem chi tiết
vo man
Xem chi tiết
Khánh Linh
Xem chi tiết
Hoàng Phi Kim Huệ
Xem chi tiết
Khánh Linh
Xem chi tiết
Khánh Linh
Xem chi tiết
Khánh Linh
Xem chi tiết
Bùi Đoan Trang
Xem chi tiết
Anna Lagila
Xem chi tiết