Question

Viết chương trình nhập vào mảng a gồm n phần tử. Đếm xem có bao nhiêu phần tử chia hết cho 3 và tính tổng các phần tử chia hết cho 3.

Answer 1

uses crt;
var n,n3,i:integer;
tong: longint;
a: array [1..10] of integer;
begin
clrscr;
write('So phan tu cua mang: ');readln(n);
for i:= 1 to n do
begin
write('phan tu thu ',i,': ');
readln(a[i]);
end;
n3:= 0; tong:= 0;
for i:= 1 to n do
if a[i] mod 3 = 0 then
begin
n3:= n3 + 1;
tong:= tong + a[i];
end;
writeln('So phan tu chia het cho 3: ',n3);
write('Tong cac phan tu chia het cho 3: ',tong);
readln
end.

Answer 2

uses crt;
var a:array[1..100]of integer;
n,i,dem,t:integer;
begin
clrscr;
write('nhap n='); readln(n);
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
{--------------------------xu-ly-----------------------------}
dem:=0;
t:=0;
for i:=1 to n do
if a[i] mod 3=0 then
begin
dem:=dem+1;
t:=t+a[i];
end;
writeln('so phan tu chia het cho 3 la: ',dem);
writeln('tong cac phan tu chia het cho 3 la: ',t);
readln;
end.