Question

nhập vào dãy số nguyên và một số nguyên k kiểm tra trong dãy số vừa nhập có bao nhiêu phần tử chia hết cho 3

Answer 1

mình ko hiểu k làm gì nên mình bỏ k

program bai_tap_tin;
uses crt;
var i,n,dem:integer;
a:array [1..100] of integer;
begin

clrscr;
dem:=0;

write('nhap n');readln(n);
for i:=1 to n do
begin
write('a[',i,'] : ');readln(a[i]);
if a[i] mod 3=0 then
begin
dem:=dem+1;
end;
end;
write(' so phan tu chia het cho 3 trong day so tren la : ',dem);
readln;
end.