Question

Bài toán nhập vào một dãy số nguyên và cho biết trong dãy có bao nhiêu số chia hết cho 3?

(Giúp mình với mn ơi, mình cần gấp ạ)

Answer 1

Tham khảo

uses crt;

var a:array[1..100]of integer;

i,n,dem:integer;

begin

clrscr;

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

for i:=1 to n do 

  begin

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

end;

dem:=0;

for i:=1 to n do 

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

writeln(dem);

readln;

end.

Answer 2

Mình đang cần Input, Output và thuật toán cơ ạ, cái này dánh cho lập trình rùi ạ=(((