var
a: array[1..10] of integer;
b: array of integer;
i, x, y, j: integer;
begin
j:= 1;
{создаем массив a}
for i:= 1 to 10 do
begin
a[i]:= random(10);
write(a[i]:3);
end;
writeln;
{ищем простые числа массива a и создаём новый}
for i:= 1 to 10 do
begin
x:= 0;
if a[i] >= 2 then
begin
for y:= 2 to (a[i] div 2) do
if (a[i] mod y) = 0 then
inc(x);
if x = 0 then
begin
SetLength(b, j + 1);
b[j]:= a[i];
inc(j)
end;
end;
end;
{выводим массив b}
for i:= 1 to j - 1 do
write(b[i]:3);
end.
Если Вы уже зарегистрированы на Портале - войдите в систему, если Вы еще не регистрировались - пройдите простую процедуру регистрации.