Question

Câu 1: Viết chương trình nhập từ bàn phím số nguyên N và dãy A gồm N số nguyên A1,A2,A3, ...,An. Hãy đưa ra màn hình số lượng các số chẵn.

Câu 2: Viết chương trình nhậl từ bàn phím số nguyên N và dãy A gồm N số nguyên A1, A2,A3,..., An. Hãy đưa ra màn hình tổng các số chia hết cho 3.

Answer 1

Câu 1:

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 2=0 then inc(dem);

writeln('So luong so chan la: ',dem);

readln;

end.

Câu 2:

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 3=0 then t:=t+a[i];

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

readln;

end.