uses crt;
var a:array[1..100]of integer;
n,i,dem,dem1:integer;
begin
clrscr;
repeat
write('nhap n='); readln(n);
if n<=0 then writeln('ban da nhap sai, yeu cau ban nhap lai');
until n>0;
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
{-------------------cau-b-------------------}
for i:=1 to n do
write(a[i]:4);
{-------------cau-c----------------------}
writeln;
dem:=0;
writeln('nhung phan tu chia het cho 3 trong day la: ');
for i:=1 to n do
if a[i] mod 3=0 then
begin
write(a[i]:4);
inc(dem);
end;
writeln;
writeln('so phan tu chia het cho 3 trong day la: ',dem);
{----------------cau-d--------------------------------}
dem1:=0;
writeln('nhung phan tu lon hon 10 trong day la: ');
for i:=1 to n do
if a[i]>10 then
begin
write(a[i]:4);
dem1:=dem1+1;
end;
writeln;
writeln('so phan tu lon hon 10 trong day la: ',dem1);
readln;
end.
