( Nếu dùng Function thì chương trình sẽ trông mạch lạc hơn)
program xoa_so_ngto_trong_mang; uses crt; type mang=array[1..200] of integer; var a,b:mang; i,j,n:byte; t:word; Begin clrscr; write('Nhap so phan tu cua mang:'); readln(n); for i:=1 to n do Begin write('Nhap a[',i,']='); readln(a[i]); End; writeln('Mang ban dau:'); for i:=1 to n do write(a[i],' '); j:=1; for i:=1 to n do Begin if a[i]<2 then Begin b[j]:=a[i]; j:=j+1; End else for t:=2 to trunc(sqrt(a[i])) do if a[i] mod t=0 then Begin b[j]:=a[i]; j:=j+1; break; End; End; writeln; writeln('Mang sau khi xoa cac so nguyen to:'); for i:=1 to j-1 do write(b[i],' '); readln; End.