Cho mảng A 10 phần tử số nguyên viết chương trình tạo mảng B gồm các phần tử chia hết cho 3 và 5 trong mảng A
Mọi người giúp mình với :<
Cho mảng A 10 phần tử số nguyên viết chương trình tạo mảng B gồm các phần tử chia hết cho 3 và 5 trong mảng A
Mọi người giúp mình với :<
program ptuchiahet;
uses crt;
var A,B:array[1..10] of integer;
i,d:byte;
begin
clrscr;
writeln(‘NHAP GIA TRI TUNG PHAN TU CUA MANG A:’);
d:=0;
for i:=1 to 10 do
begin
write(‘A[‘,i,’] = ‘);
readln(A[i];
if A[i] mod 15=0 then
begin
inc(d);
B[d]:=A[i];
end;
end;
write(‘Mang A la: ‘);
for i:=1 to 10 do
write(A[i],’ ‘);
writeln;
writeln(‘Mang B tao thanh la: ‘);
for i:=1 to d do
write(B[i],’ ‘);
readln
end.