Question

cho mảng A gồm N phần tử thuộc kiểu nguyên (0<N<103). Viết chương trình đếm số lượng số lẻ và chia hết cho 3 của mảng A

Answer 1

var A:array [1..102] of integer;

begin

 write('n = '); readln(n);

for i:=1 to n do begin

                       write('A[',i,'] = ');

                       readln(A[i]);

                       end;

d:=0;

for i:=1 to n do if (A[i] mod 3 = 0) and (A[i] mod 2 = 1) then d : = d+1;

write('Trong day co ',d,' so le chia het cho 3 ');

readln

end.