uses crt;
var i,n,c,x,s,l,d,j,tam,m:integer;
a,b:array[1..100]of integer;
begin
clrscr;
write('nhap so ptu:');readln(n);
write('nhap so x:');readln(x);
l:=1; m:=0;
for i:=1 to n do
begin
 write('A[',i,']=');
 readln(a[i]);
 if (a[i] mod 3=0) and(a[i] <>0) then
 begin
  s:=s+a[i];
  m:=m+1;
 end;
 if a[i]=x then c:=c+1;
 if a[i] <> 0 then
 begin
  b[l]:=a[i];
  l:=l+1;
 end;
end;
writeln('trong day so ',x,' xuat hien ',c,' lan');
write('day sau khi da xoa cac so 0 la:');
for i:=1 to l-1 do write(b[i],';');
l:=1;
for i:=1 to n do
begin
 d:=0;
 for j:=1 to a[i] do
  if a[i] mod j=0 then d:=d+1;
 if d=2 then
 begin
  tam:=a[i];
  a[i]:=a[l];
  a[l]:=tam;
  l:=l+1;
 end;
end;
writeln;
write('sap xep day:');
for i:=1 to n do write(a[i],';');
writeln;
writeln('trung binh cong cua ca so chia het cho 3 co trong day la:',s/m:4:2);
readln;
end.

(mong dc 5*+hay nhất)

import array as arr
def prime(n):
    if n==2 : 
        return True
    else :
        for i in range(2,n-1):
            if n%i==0 :
                return False
                break
            else :
                return True
n=int(input('n='))
a=[0]*n
for i in range(n):
    a[i]=int(input("a[%d]="%i))
print('mang vua nhap: ',end=' ')
for i in range(n) : print(a[i],end=' ')
print()
x=int(input('x='))
d=0
print('Vi tri xuat hien x la: ',end=' ')
for i in range(n):
    if x==a[i]:
        print(i,end='  ')
        d+=1
print()
print('So la xuat hien:',d)
for i in range (len(a)):
    if a[i]==0:
        a.remove(0)
        break
print('mang sau khi xoa so 0: ',end=' ')
for i in range(len(a)):
    print(a[i],end=' ');
print()
b=[];c=[];
for i in range(len(a)):
    if prime(a[i])==True :
        b.append(a[i])
    else :
        c.append(a[i]) 
print('mang sau khi duoc sap xep: ',end=' ')
for i in range(len(b)):
    print(b[i],end=' ')
for i in range(len(c)):
    print(c[i],end=' ')