Question

viết chương trình nhập vào một mảng gồm N phần tử .Tính tổng các số chia hết cho 2 và 3

Answer 1

uses crt;

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

i,n,t:integer;

begin

clrscr;

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

for i:=1 to n do

begin

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

end;

t:=0;

for i:=1 to n do

if (a[i] mod 2=0) and (a[i] mod 3=0) then t:=t+a[i];

writeln('Tong cac so chia het cho 2 va 3 la: ',t);

readln;

end.

Answer 2

Viết phương trình nhập một dãy số nguyên có n phần tử. Tìm tổng các phần tử chia hết cho 2 

Tin học lớp 8