cho a,b là các mã mục chiều. viết phương trình nhập giá trị mảng a từ bàn phím, và dùng hàm random (hàm sinh số ngẫu nhiên) để tạo ra giá trị cho mảng b. Sau đó in ra màn hình các số chẵn của mảng a và mảng b (mỗi mảng in trên một dòng)
Gíup em với em cần gấp ❤
program chan_haimang;
uses crt;
var A,B:array[1..100] of byte;
n,i:byte;
begin
clrscr;
write(‘Nhap N: ‘); readln(n);
randomize;
for i:=1 to n do
begin
write(‘[‘,i,’]= ‘); readln(A[i]);
B[i]:=random(2000)-1000;
end;
write(‘Cac phan tu chan cua mang A la: ‘);
for i:=1 to n do
if A[i] mod 2=0 then write(A[i],’ ‘);
writeln;
write(‘Cac phan tu chan cua mang B la: ‘);
for i:=1 to n do
if B[i] mod 2=0 then write(B[i],’ ‘);
readln;
end.
program sochan;
uses crt;
var A,B:array[1..100] of integer;
n,i:byte;
begin
clrscr;
write(‘Nhap so luong phan tu: ‘); readln(n);
randomize;
for i:=1 to n do
begin
write(‘A[‘,i,’]= ‘); readln(A[i]);
B[i]:=random(2000)-1000;
end;
write(‘Mang A: la: ‘);
for i:=1 to n do write(A[i],’ ‘);
writeln;
write(‘Cac phan tu chan cua mang A la: ‘);
for i:=1 to n do
if A[i] mod 2=0 then write(A[i],’ ‘);
writeln;
write(‘Mang B la: ‘);
for i:=1 to n do write(B[i],’ ‘);
writeln;
write(‘Cac phan tu chan cua mang B la: ‘);
for i:=1 to n do
if B[i] mod 2=0 then write(B[i],’ ‘);
readln;
end.