Cho mảng B một chiều gồm M phần tử. Viết chương trình nhập giá trị vào mảng sau đó in. ra màn hình các phần thử các phần tử có giá trị là chẵn và là bội của 4 có trong mảng.
1 câu trả lời
uses crt;
var b:array[1..100]of integer;
m,i:integer;
begin
clrscr;
write('nhap m='); readln(m);
for i:=1 to m do
begin
write('b[',i,']='); readln(b[i]);
end;
writeln('cac so chan va la boi cua 4 la: ');
for i:=1 to m do
if (b[i] mod 2=0) and (b[i] mod 4=0) then write(b[i]:4);
readln;
end.
Câu hỏi trong lớp
Xem thêm
