Задача: удалить из массива все простые числа

[Arigato]

Ничем от Делфи не отличается:

var a: array of integer;
i: ineger;
begin
  setlength(a, 10);
  for i:=0 to high(a) do
...

[Poma][a]

Ничем от Делфи не отличается:

не будет работать..

nsw

[evg_m]

о пользе правильных названий переменных
заменить название переменной pr на pr_is_simple
и еще раз прочитать код (желательно весь)

if pr_is_simple then

[Arigato]

Сообщение от Poma][a

не будет работать..

Хм, проверил, действительно похоже, что их нет. С другой стороны Турбо Паскаль потерял свою актуальность лет 15 назад, пора бы о нем уже забыть

[nat_m]

for j:=1 to n do
bedin
for i:=2 to a[j]-1 do
if a[j] mod i =0 then
begin
b[k]:=a[j];
k:=k+1;
break;
end;
end

[Ildarraddo]

Если вы предлагаете сформировать новый массив из простых чисел, то это слишком просто.
Задача сформулирована следующим образом: УДАЛИТЬ из массива целых чисел все простые.

[nat_m]

меняем

b[k]:=a[j]

на

a[k]:=a[j]