Question

Заполнить массив из N чисел простыми числами. Отсортировать массив в порядке убывания.(Паскаль)

Answer 1

uses School; // PascalABC.NET не древнее 14.04.2020

begin

 var n := ReadInteger('n =');

 var a := FirstPrimes(n).Shuffle;

 a := a.Println.OrderDescending.Println.ToArray

end.

Answer 2

Для заполнения массива из N простых чисел и их последующей сортировки в порядке убывания в Pascal, вы можете использовать следующий код:

pascalCopy code
program PrimeNumbers;

const
  N = 10; // Задайте здесь необходимое количество простых чисел

type
  TIntArray = array of Integer;

function IsPrime(num: Integer): Boolean;
var
  i: Integer;
begin
  if num < 2 then
    Result := False
  else
  begin
    Result := True;
    for i := 2 to Trunc(Sqrt(num)) do
    begin
      if num mod i = 0 then
      begin
        Result := False;
        Break;
      end;
    end;
  end;
end;

procedure FillArrayWithPrimes(var arr: TIntArray; N: Integer);
var
  num, count: Integer;
begin
  SetLength(arr, N);
  num := 2;
  count := 0;
  while count < N do
  begin
    if IsPrime(num) then
    begin
      arr[count] := num;
      Inc(count);
    end;
    Inc(num);
  end;
end;

procedure SortArrayDescending(var arr: TIntArray);
var
  i, j, temp: Integer;
begin
  for i := 0 to Length(arr) - 1 do
  begin
    for j := i + 1 to Length(arr) - 1 do
    begin
      if arr[i] < arr[j] then
      begin
        temp := arr[i];
        arr[i] := arr[j];
        arr[j] := temp;
      end;
    end;
  end;
end;

procedure PrintArray(arr: TIntArray);
var
  i: Integer;
begin
  for i := 0 to Length(arr) - 1 do
    Write(arr[i], ' ');
end;

var
  primeArray: TIntArray;
begin
  FillArrayWithPrimes(primeArray, N);
  SortArrayDescending(primeArray);

  Writeln('Массив из ', N, ' простых чисел в порядке убывания:');
  PrintArray(primeArray);
end.

Замените значение N на желаемое количество простых чисел, которое вы хотите получить в массиве. Программа найдет N простых чисел и отсортирует их в порядке убывания. Результат будет выведен на экран.