Question

Помогите, массив, пожалуйста

Answer 1

// PascalABC.NET 3.2, сборка 1417 от 28.03.2017
// Внимание! Если программа не работает, обновите версию!

function IsPrime(n:integer):boolean;
begin
  if n<4 then Result:=True
  else begin
    var found:=(n mod 2=0);
    var p:=3;
    while (not found) and (sqr(p)<=n) do
      begin found:=(n mod p=0); p+=2 end;
    Result:=not found
    end
end;

begin
  var a:=ArrRandom(ReadInteger('n='),0,100); a.Println;
  var primes:=a.Where(x->IsPrime(x)).ToArray;
  primes.Sort;
  primes.Println
end.

Пример
n= 17
33 23 56 58 32 2 5 72 68 59 89 30 17 40 44 21 23
2 5 17 23 23 59 89

Answer 2

????

Answer 3

(((