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

OK

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

NT
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.

Bình luận (0)
 Khách vãng lai đã xóa

Các câu hỏi tương tự
VT
Xem chi tiết
HN
Xem chi tiết
HN
Xem chi tiết
HT
Xem chi tiết
NM
Xem chi tiết
MV
Xem chi tiết
NN
Xem chi tiết
NQ
Xem chi tiết
TD
Xem chi tiết
TT
Xem chi tiết