nhập vào 4 số bất kì hiển thị ra màn hình số vừa nhập từ bé đến lớn
2 câu trả lời
uses crt;
var a : array[1..4] of integer;
i, j : integer;
begin
clrscr;
for i := 1 to 4 do
begin
write('nhap so thu ', i ,' : ');readln(a[i]);
end;
for j := 4 downto 2 do
for i := 1 to j - 1 do
if a[i] > a[i + 1] then
begin
a[i] := a[i] + a[i + 1];
a[i + 1] := a[i] - a[i + 1];
a[i] := a[i] - a[i + 1];;
end;
write('thu tu tu be den lon : ');
for i := 1 to 4 do write(a[i]:4);
readln
end.
Var a:Array[1..4] Of Longint;
n,i,j,Tg:Longint;
Begin
For i:=1 to 4 do Read(A[i]); // nhap vao 4 so
For i:=1 to 3 do
For j:=i+1 to 4 do
If A[i]>A[j] then
Begin
Tg:=A[i]; A[i]:=A[j]; A[j]:=Tg; // sắp xếp
End;
For i:=1 to 4 do Write(A[i],' '); // ghi ra 4 so
End.
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết giúp các em luyện tập và củng cố kiến thức hiệu quả
- Kiểm tra 15 phút lần 1 học kì 1 - đề số 5 Địa 8 có lời giải chi tiết
- Kiểm tra 15 phút lần 1 học kì 1 - đề số 4 Địa 8 có lời giải chi tiết
