Cho mảng A gồm 10 phần tử thuộc kiểu nguyên . Viết hàm đến số lượng số nguyên dương chia hết cho 7 của mảng A Giúp vs ạ
1 câu trả lời
uses crt;
var i,d:integer;
begin
clrscr;
d:=0;
for i:=1 to 10 do if (i>0)and(i mod 7=0) then d:=d+1;
write('Co ',d,' phan tu chia het cho 7');
readln;
end.
