Bài 9. Làm việc với dãy số

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

vieết chương trình nhập vào 1 dãy số nguyên có n phần tử, n được nhập từ bàn phím . thông báo ra màn hình dãy số đã cho theo thứ tự tăng giần

Nguyễn Lê Phước Thịnh
17 tháng 3 2020 lúc 21:40

uses crt;
var n,i,tam,j:longint;
a:array[1..100]of longint;
begin
clrscr;
write('n='); readln(n);
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
{-----------------------------xu-ly---------------------------}
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 tang dan la: ');
for i:=1 to n do
write(a[i]:4);
readln;
end.

Khách vãng lai đã xóa

Các câu hỏi tương tự
vy tường
Xem chi tiết
Hiền Nguyễn
Xem chi tiết
Huy Hoang Nguyen
Xem chi tiết
Huyền Trần
Xem chi tiết
Nguyễn Mỹ
Xem chi tiết
MinhAnh Vũ
Xem chi tiết
Nguyễn Như Ngọc
Xem chi tiết
Nguyễn minh quân
Xem chi tiết
Thư ĐT
Xem chi tiết
Trần Hà Thư
Xem chi tiết