Question

Дана последовательность, расположить ее элементы, кратные 3, по убыванию.(ПАСКАЛЬ) помогите!!

Answer 1

===== PascalABC.NET =====

begin

 var n := ReadInteger('Число элементов =');

 var a := ArrRandom(n, -99, 99);

 a.Println;

 a.Where(p -> p mod 3 = 0).OrderDescending.Println

end.

Answer 2

Конечно, я помогу вам реализовать алгоритм сортировки элементов последовательности, кратных 3, по убыванию на языке Паскаль. Ниже приведен код, который выполняет эту задачу:

pascalCopy code
program SortMultiplesOfThree;

const
  MAX_SIZE = 100;

type
  TArray = array[1..MAX_SIZE] of Integer;

var
  Sequence: TArray;
  N, i, j, temp: Integer;

procedure SortMultiplesByDescending(var arr: TArray; n: Integer);
var
  i, j: Integer;
  temp: Integer;
begin
  for i := 1 to n - 1 do
  begin
    if arr[i] mod 3 = 0 then
    begin
      for j := i + 1 to n do
      begin
        if (arr[j] mod 3 = 0) and (arr[j] > arr[i]) then
        begin
          temp := arr[i];
          arr[i] := arr[j];
          arr[j] := temp;
        end;
      end;
    end;
  end;
end;

begin
  { Ввод размера последовательности }
  Write('Введите размер последовательности (не более ', MAX_SIZE, '): ');
  ReadLn(N);

  { Ввод элементов последовательности }
  WriteLn('Введите элементы последовательности:');
  for i := 1 to N do
    ReadLn(Sequence[i]);

  { Сортировка элементов, кратных 3, по убыванию }
  SortMultiplesByDescending(Sequence, N);

  { Вывод отсортированной последовательности }
  WriteLn('Отсортированная последовательность:');
  for i := 1 to N do
    WriteLn(Sequence[i]);
end.

Программа запрашивает у пользователя размер последовательности и элементы этой последовательности. Затем она сортирует элементы, кратные 3, по убыванию и выводит отсортированную последовательность на экран.