viết chương trình tạo mảng một chiều gồm n số nguyên ( n ≤ 100 ) rồi sắp xếp dãy số theo giảm dần
0 bình luận về “viết chương trình tạo mảng một chiều gồm n số nguyên ( n ≤ 100 ) rồi sắp xếp dãy số theo giảm dần”
Program SX; Uses crt; Var A:array[1..10000] of longint; i,j,n,tg: longint; 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 tg:=A[i]; A[i]:=A[j]; A[j]:=tg; End; For i:=1 to n do Write(A[i]:5); Readln End.
Program SX;
Uses crt;
Var A:array[1..10000] of longint;
i,j,n,tg: longint;
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
tg:=A[i];
A[i]:=A[j];
A[j]:=tg;
End;
For i:=1 to n do Write(A[i]:5);
Readln
End.