Trong các dãy số sau, dãy số nào được xếp theo thứ tự lớn dần ?
A. 12,2 ; 49/4 ; 121/2 ; 12,8 ; 12 3/4 C. 12,2 ; 49/4 ; 12 1/2 ;12 3/4 ;12,8
B. 49/4 ; 12,2 ; 12 1/2; 12 3/4 ; 12,8 D. 12,2 ; 12 1/2 ; 49/4 ; 12 3/4 ; 12,8
Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
1)
Var array:[1..1000] of integer;
i,n,t:integer;
Begin
Write('n = ');readln(n);
For i:=1 to n do
Begin
Write('Nhap so thu ',i,' = ');readln(a[i]);
End;
For i:=1 to n do
If a[i] > a[i+1] then
Begin
t:=a[i];
a[i]:=a[i+1];
a[i+1]:=t;
End;
Write('Sap xep tang dan ');
For i:=1 to n do write(a[i]:8);
Readln
End.
2)
Var array:[1..1000] of integer;
i,n,t:integer;
Begin
Write('n = ');readln(n);
For i:=1 to n do
Begin
Write('Nhap so thu ',i,' = ');readln(a[i]);
End;
For i:=1 to n do
If a[i] < a[i+1] then
Begin
t:=a[i];
a[i]:=a[i+1];
a[i+1]:=t;
End;
Write('Sap xep giam dan ');
For i:=1 to n do write(a[i]:8);
Readln
End.
C nha
c