[pascal]

[bibebi]

Xóa các số nguyên tố trong mảng đừng dùng inc,proceduce

[hongan007]

inc là gì ?
dùng funcion nha :))


Var n,i,j :integer;
a :array[1..100] of integer; {integer hay real gì đó là tùy đề bài}
Funcion ktSoNguyenTo (x:integer) : intger;
Var i:integer;
Begin
For i := 1 to x/2 do
if (x mod i) = 1 then ktSoNguyenTo = 1;
ktSoNguyenTo:=0;
End;
{Quên mất kiểu gì mà True False rồi}
Begin
readln(n) {nhập số phần tử của mảng}
For i:= 1 to n do readln(a[i]); {nhập mảng}
For i:=1 to n do {duyệt từ đầu tới cuối mảng}
if ktSoNguyenTo(a[i]) = 1 then
For j:=i to n do a[i] := a[i+1]; {xóa số nguyên tố}
End;

Có lẽ sai 1 vài chỗ :D
Chỉ sài 1 chương trình chính:


Var n,i,j,ktSoNguyenTo :integer;
a :array[1..100] of integer; {integer hay real gì đó là tùy đề bài}
Begin
Readln(n) {nhập số phần tử của mảng}
For i:= 1 to n do readln(a[i]); {nhập mảng}
For i:=1 to n do
Begin
KtSoNguyenTo:=0;
For j:=1 to a[i]/2 do
if (a[i] mod j) = 1 then
For j:=i to n do a[i] := a[i+1]; {xóa số nguyên tố}
End;
End.