Question

Viết chương trình nhập vào dãy A gồm N số nguyên (N<=50).In ra màn hình tổng các số chia hết cho 3.

Answer 1

Var i,n: Integer;

S: Longint;

a:array[1..50] of Integer;

Begin

Write('Nhap so cac so la N='); Read(N);

Write('Nhap ',N,' so do');

For i:=1 to N do

begin

Write('a[',i,']=');

Read(a[i]);

end;

S:=0;

For i:=1 to N do

If a[i] mod 3=0 then S:=S+a[i];

Writeln('Tong cac so chia het cho 3 la,S=',S);

Readln;

End.

----------------------------

p/s: Mình mời học lớp 8 nên mình viết theo cách này nên áp dụng vào lớp 11 thì không biết có đúng không ạ.