Question

Cho mảng A gồm 10 phần tử thuộc kiểu nguyên. Viết hàm đếm số lượng số nguyên chia hết cho 7 của mảng A. Mọi người giúp mình với ạ

Answer 1

type mang=array[1..10]of integer;

function demsochiahet(a:mang):integer;

var dem,i,n:integer;

begin

dem:=0;

for i:=1 to n do 

  if a[i] mod 7=0 then inc(dem);

demsochiahet:=dem;

end;