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