Создайте массив В из простых элементов массива А - Turbo Pascal - Ответ 4716081

program Simp;
 
uses crt;
 
function simple(N: integer): boolean; //функция определения простоты числа
var i: integer;
begin
if n < 2
  then Result := False
  else begin
    Result := True;
    for i:=2 to trunc(sqrt(N)) do
    if N mod i = 0
      then begin
        Result := False;
        exit;
      end;
  end;
end;
 
  var i, n, k: integer;
      a, b: array [1..200] of integer;
 
begin
  repeat //вводим размерность массива с проверкой диапазона
    write('n <= 200, n >= 1; n = '); readln(n);
  until (n <= 200) and (n >= 1);
 
  randomize; //формируем массив и печатаем его
  writeln('Array A:');
  for i := 1 to n do begin
    a[i] := trunc(random(200000) - 100000); //числа в диапазоне -100000..100000
    write(a[i]:7);
    if (i mod 10) = 0 then writeln; //печатаем в 10 колонок
  end;
  if (i mod 10) > 0 then writeln; //последняя строка неполная, перевод строки
 
  k := 0; //печатаем все простые числа
  writeln('Simple numbers, array B:');
  for i := 1 to n do begin 
    if simple(a[i]) then
      begin
        k := k + 1; //счётчик простых чисел
        b[k] := a[i];
        write(b[k]:7);
        if (k mod 10) = 0 then writeln; //печатаем в 10 колонок
      end;
  end;
  if (k mod 10) > 0 then writeln; //последняя строка неполная, перевод строки
  if k = 0 then writeln('No simple numbers!');
 
  readln;
 
end.