Задание
Задача. Найдите в массиве все простые числа и скопируйте их в новый массив.
Расположите операторы в нужном порядке.
const n = 10;
var A, B: array [1..n] of integer;
j, i, cnt, k: integer;
function prost(i:integer):boolean;
begin
j:=2;
while (i mod j <> 0) do inc(j);
if i=j then prost:=true
else prost:=false
end;
begin
Randomize;
for i := 1 to n do
begin
A[i] := random(26);
Write(A[i]:4);
if prost(a[i]) then
begin
cnt:=cnt+1;
b[cnt]:=a[i];
end;
end;
writeln;
if cnt=0 then write('Простых чисел нет')
else
begin
writeln('Простые числа');
for i:=1 to cnt do
write(b[i]:3);
end;
end.