Quảng cáo
3 câu trả lời 159
2 năm trước
Program tangdan ;
Uses crt;
Var n, i, j, T : Integer ;
A : Array [1..100] of integer ;
Begin
Writeln ('Nhap so phan tu:');
Readln (n);
For i : = 1 to n do
Begin
Write ( 'A [ ' , i , ' ] ' ) ;
Readln ( A [ i ] ) ;
End ;
i : = 1 ;
While ( i < = n - 1) do
Begin
j : = i + 1 ;
While j < = n do
Begin
If A [ j ] < A [ i ] then
Begin
T : = A [ j ] ;
A [ j ] : = A [ i ] ;
A [ i ] : = T ;
End ;
j:=j+1 ;
End;
i:=i+1;
End ;
Write ('Day so sau khi sap xep:');
For i : = 1 to n do
Write (A [ i ]) ;
Readln;
End.
Uses crt;
Var n, i, j, T : Integer ;
A : Array [1..100] of integer ;
Begin
Writeln ('Nhap so phan tu:');
Readln (n);
For i : = 1 to n do
Begin
Write ( 'A [ ' , i , ' ] ' ) ;
Readln ( A [ i ] ) ;
End ;
i : = 1 ;
While ( i < = n - 1) do
Begin
j : = i + 1 ;
While j < = n do
Begin
If A [ j ] < A [ i ] then
Begin
T : = A [ j ] ;
A [ j ] : = A [ i ] ;
A [ i ] : = T ;
End ;
j:=j+1 ;
End;
i:=i+1;
End ;
Write ('Day so sau khi sap xep:');
For i : = 1 to n do
Write (A [ i ]) ;
Readln;
End.
2 năm trước
Program tangdan ;
Uses crt;
Var n, i, j, T : Integer ;
A : Array [1..100] of integer ;
Begin
Writeln ('Nhap so phan tu:');
Readln (n);
For i : = 1 to n do
Begin
Write ( 'A [ ' , i , ' ] ' ) ;
Readln ( A [ i ] ) ;
End ;
i : = 1 ;
While ( i < = n - 1) do
Begin
j : = i + 1 ;
While j < = n do
Begin
If A [ j ] < A [ i ] then
Begin
T : = A [ j ] ;
A [ j ] : = A [ i ] ;
A [ i ] : = T ;
End ;
j:=j+1 ;
End;
i:=i+1;
End ;
Write ('Day so sau khi sap xep:');
For i : = 1 to n do
Write (A [ i ]) ;
Readln;
End.
Uses crt;
Var n, i, j, T : Integer ;
A : Array [1..100] of integer ;
Begin
Writeln ('Nhap so phan tu:');
Readln (n);
For i : = 1 to n do
Begin
Write ( 'A [ ' , i , ' ] ' ) ;
Readln ( A [ i ] ) ;
End ;
i : = 1 ;
While ( i < = n - 1) do
Begin
j : = i + 1 ;
While j < = n do
Begin
If A [ j ] < A [ i ] then
Begin
T : = A [ j ] ;
A [ j ] : = A [ i ] ;
A [ i ] : = T ;
End ;
j:=j+1 ;
End;
i:=i+1;
End ;
Write ('Day so sau khi sap xep:');
For i : = 1 to n do
Write (A [ i ]) ;
Readln;
End.
uses crt;
var a;array[1..1000] of qword;
i,j,n:longword;
procedure doi(var x,y: qword);
begin
x:=x+y;
y:=x-y;
x:=x-y;
end;
begin
read(n);
for i:=1 to n do read(a[i]);
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i]>a[j] then doi(a[i],a[j]);
for i:=1 to n do write(a[i], ' ');
end.
Quảng cáo
Bạn muốn hỏi bài tập?
Câu hỏi hot cùng chủ đề
-
Hỏi từ APP VIETJACK44971
-
Hỏi từ APP VIETJACK27113
Thành viên hăng hái nhất trong tuần
-
I miss you
4255 điểm
-
` ✧`
2735 điểm
-
Judy Hopps
1410 điểm
-
⋆˚࿔ neuemla... 𝜗𝜚˚
1360 điểm
-
bích hồng nguyễn 1080 điểm
-
iu vk vãi cak
735 điểm
-
`color{red}text{HuyTùng`
530 điểm
-
`\color{pink}\text{d.`
520 điểm
-
chê ng tốt chốt ng tồi.
460 điểm
-
(┬┬﹏┬┬) 𝙻𝚘𝚟𝚎𝚒𝚜𝚝𝚛𝚞𝚎💔
450 điểm
-
chao.ngdep
445 điểm
-
౨ৎ𝘉ắ𝘱ت𝘭𝘶ộ𝘤تđê⋅˚₊‧ ଳ⋆.࿔*:･🌽
415 điểm
-
Haruto[pad] 395 điểm
-
lạnh ôm jet (:
380 điểm
Rút gọn
Bài viết mới nhất Lớp 8
-
3 năm trước8199
-
3 năm trước7715
-
3 năm trước6553
-
3 năm trước6447
-
3 năm trước6270
Gửi báo cáo thành công!
