Ai giúp em vơi
Viết CT nhập vào mảng 1 chiều tách ra hai mảng mới
Mảng 2 chứ số chẵn
Mảng 3 chứa số lẻ ( pascal ạ)

Question

Ai giúp em vơi Viết CT nhập vào mảng 1 chiều tách ra hai mảng mới Mảng 2 chứ số chẵn Mảng 3 chứa số lẻ ( pascal ạ)

huongtram · Answer

program nghia;

uses crt;

var A: array[1..500] of integer;

i, e: integer;

begin

clrscr;

write(‘Nhap e = ‘); readln(n);

for i:=1 to e do

begin

write(‘A[‘, i, ‘] = ‘); readln(A[i]);

end;

write(‘Mang chua so chan: ‘);

for i:=1 to e do if A[i] mod 2 = 0 then write(A[i]:3);

write(‘Mang chua so le: ‘);

for i:=1 to e do if A[i] mod 2 = 1 then write(A[i]:3);

readln

end.

Xin hay nhất

Nhận giải mọi bài tập

Ai muốn vào nhóm mk ko

Try to study well for the future

mytam · Answer

program phuongt;

uses crt;

var A: array[1..500] of integer;

i, n: integer;

begin

clrscr;

write(‘Nhap n = ‘); readln(n);

for i:=1 to n do

begin

write(‘A[‘, i, ‘] = ‘); readln(A[i]);

end;

write(‘Mang chua so chan: ‘);

for i:=1 to n do if A[i] mod 2 = 0 then write(A[i]:3);

write(‘Mang chua so le: ‘);

for i:=1 to n do if A[i] mod 2 = 1 then write(A[i]:3);

readln

end.

0 bình luận về “Ai giúp em vơi Viết CT nhập vào mảng 1 chiều tách ra hai mảng mới Mảng 2 chứ số chẵn Mảng 3 chứa số lẻ ( pascal ạ)”