Quảng cáo
1 câu trả lời 203
3 năm trước
PROCEDURE sapxep(var a:mang);
Var d, I: integer;
Tam:integer;
Begin
D:=0;
For i:=1 to n do
If (a[i] mod 2 <>0) and (a[i]<>0) then
Begin
D:=d+1;
Tam:=a[i];
A[i]:=a[d];
A[d]:=tam;
End;
For i:=d+1 to n do
If a[i]=0 then
Begin
D:=d+1;
Tam:=a[i];
A[i]:=a[d];
A[d]:=tam;
End;
End;
tham khảo nhé
Quảng cáo
Câu hỏi hot cùng chủ đề
-
2 40062
-
Hỏi từ APP VIETJACK21854
-
Hỏi từ APP VIETJACK3 19750
-
Hỏi từ APP VIETJACK3 18604
-
Hỏi từ APP VIETJACK18248
Gửi báo cáo thành công!