KHÁM PHÁ Học Toán + Tiếng Anh theo Sách Giáo Khoa cùng học online và gia sư dạy kèm tại nhà từ lớp 1 đến lớp 12 với giá cực kỳ ưu đãi kèm quà tặng độc quyền"CỰC HOT".
Viết CT nhập vào một mảng,lấy các số chẵn của mảng này sang mảng khác
By Melanie
Viết CT nhập vào một mảng,lấy các số chẵn của mảng này sang mảng khác
uses crt; var i,n,k:byte; a,b:array[1..255] of integer; BEGIN clrscr; write(‘Nhap n:’); readln(n); for i:=1 to n do begin write(‘Nhap a[‘,i,’]:’); readln(a[i]); end; k:=0; for i:=1 to n do if a[i] mod 2=0 then begin inc(k); b[k]:=a[i]; end; write(‘CAC SO CHAN SAU KHI LAY RA LA:’); for i:=1 to k do write(b[i],’ ‘); readln END.
uses crt;
var i,n,k:byte;
a,b:array[1..255] of integer;
BEGIN
clrscr;
write(‘Nhap n:’); readln(n);
for i:=1 to n do
begin
write(‘Nhap a[‘,i,’]:’);
readln(a[i]);
end;
k:=0;
for i:=1 to n do
if a[i] mod 2=0 then
begin
inc(k);
b[k]:=a[i];
end;
write(‘CAC SO CHAN SAU KHI LAY RA LA:’);
for i:=1 to k do
write(b[i],’ ‘);
readln
END.
Các số chẵn sau khi lấy ra lưu ở mảng b.
Chúc bạn học tốt.
Cho mik câu trl hay nhất nha.
program mangchan;
uses crt;
var A,B:array[1..1000] of integer;
n,i,d:integer;
begin
clrscr;
write(‘Nhap so luong phan tu mang ban dau: ‘); readln(n);
writeln(‘NHAP TUNG GIA TRI CUA MANG’);
d:=0;
for i:=1 to n do
begin
write(‘Phan tu thu ‘,i,’: ‘);
readln(A[i]);
if A[i] mod 2=0 then
begin
d:=d+1;
B[d]:=A[i];
end;
end;
if d=0 then write(‘Khong co phan tu chan de tao mang moi’)
else
begin
write(‘Mang moi la: ‘);
for i:=1 to d do
write(A[i],’ ‘);
end;
readln
end.