Chương trình đơn giản

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
quangduy

Viết chương trình nhập vào 1 dãy số xóa bớt các số lẻ. Xuất kết quả dưới dạng đối xứng của phần còn lại.

VD: 1 2 4 5 6 \(\rightarrow\) 2 4 6 6 4 2

Nguyễn Lê Phước Thịnh
12 tháng 4 2020 lúc 10:05

uses crt;
var a:array[1..255]of byte;
n,i,kt:integer;
st,st1:string;
begin
clrscr;
write('nhap chieu dai day so:'); readln(n);
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
{-------------------------------xu-ly---------------------------------}
st:='';
kt:=0;
for i:=1 to n do
if a[i] mod 2=0 then
begin
str(a[i],st1);
kt:=1;
st:=st+st1;
end;
if kt>0 then
begin
write('doi xung cua cac so chan la: ');
for i:=1 to length(st) do
write(st[i]:4);
for i:=length(st) downto 1 do
write(st[i]:4);
end;
readln;
end.


Các câu hỏi tương tự
quangduy
Xem chi tiết
Thái Bảo
Xem chi tiết
Vân Ngô
Xem chi tiết
Nguyễn Thị Tươi
Xem chi tiết
Nam Phạm An
Xem chi tiết
Anh Thư
Xem chi tiết
Ngạn Tuấn
Xem chi tiết
Lê Băng
Xem chi tiết
Hà Phương
Xem chi tiết