Viết chương trình nhập một dãy số tối đá 100 số sau đó sắp xếp lại theo thứ tự tăng dần
Viết chương trình nhập một dãy số tối đá 100 số sau đó sắp xếp lại theo thứ tự tăng dần
By Cora
By Cora
Viết chương trình nhập một dãy số tối đá 100 số sau đó sắp xếp lại theo thứ tự tăng dần
Uses Crt;
Var a:array[1..100] of integer;
i,n,j,tg:integer;
Begin
Write(‘ Nhap do dai day N= ‘); Readln(n);
For i:=1 to n do
Begin
Write(‘Nhap so thu ‘,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
tg:=a[i];
a[i]:=a[j];
a[j]:=tg;
End;
Write(‘ Day so duoc sap xep theo thu tu tang dan la: ‘);
For i:= 1 to n do Write(a[i]:5);
Readln
End.
program tang_dan;
uses crt;
var A:array[1..100] of integer;
n,i,j,tg:integer;
begin
clrscr;
write(‘Nhap so luong phan tu: ‘); readln(n);
for i:=1 to n do
begin
write(‘Nhap so thu ‘,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
tg:=A[i];
A[i]:=A[j];
A[j]:=tg;
end;
write(‘Day tang dan la: ‘);
for i:=1 to n do write(A[i],’ ‘);
readln;
end.