Найдите в массиве все простые числа и скопируйте их в новый массив. С командой array без...

Question

Найдите в массиве все простые числа и скопируйте их в новый массив. С командой array без рандомайза!Паскаль. СРОЧНО!!!!!!

Answer 1

var a,b: array[1..10] of Integer;
i,n: integer;
begin
n:=1;
for i:=1 to 10 do readln(a[i]);
for i:=1 to 10 do
begin
if a[i]<>0 then
begin
b[n]:=a[i];
inc(n);
end;
end;
if n=1 then writeln('Элементов нет') else
for i:=1 to n-1 do writeln(b[i]);
end.

Comments

да.

---

я ввел в программу 3685208647

---

программа выдала 3 6 8 5 2 8 6 4 7

---

всё верно.

---

6 8 4 это же не простые числа

---

программа просто убирает 0

---

простые числа делятся только сами на себя и на 1

---

Я знаю. Исправить уже никак не получится.

---

Допустил ошибку.

---

исправь ошибку