Question

ПАСКАЛЬ ABC.NET Отрицательные элементы массива заменить нулями, - остальные отсортировать по возрастанию

Answer 1

begin

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

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

 a.Println;

 var b := a.Where(p -> p > 0).Sorted.ToArray;

 if b.Length > 0 then

 begin

   var j := 0;

   for var i := 0 to a.High do

     if a[i] > 0 then begin

       a[i] := b[j];

       j += 1

     end

     else

       a[i] := 0

 end;

 a.Println

end.

Answer 2

Вот пример решения вашей задачи на языке Pascal (ABC.NET):

pascalCopy code
program SortArray;
const
  N = 10; // Размер массива
var
  arr: array[1..N] of Integer; // Массив
  i: Integer; // Счетчик
  
begin
  // Заполнение массива случайными значениями
  Randomize;
  for i := 1 to N do
  begin
    arr[i] := Random(20) - 10; // Генерация случайного числа от -10 до 10
  end;
  
  // Вывод исходного массива
  WriteLn('Исходный массив:');
  for i := 1 to N do
  begin
    Write(arr[i], ' ');
  end;
  
  // Замена отрицательных элементов на нули
  for i := 1 to N do
  begin
    if arr[i] < 0 then
    begin
      arr[i] := 0;
    end;
  end;
  
  // Сортировка массива по возрастанию
  for i := 1 to N - 1 do
  begin
    for j := i + 1 to N do
    begin
      if arr[i] > arr[j] then
      begin
        // Обмен элементов
        temp := arr[i];
        arr[i] := arr[j];
        arr[j] := temp;
      end;
    end;
  end;
  
  // Вывод измененного и отсортированного массива
  WriteLn;
  WriteLn('Измененный и отсортированный массив:');
  for i := 1 to N do
  begin
    Write(arr[i], ' ');
  end;
  
  ReadLn;
end.

В этом примере мы создаем массив arr размером 10 элементов и заполняем его случайными значениями от -10 до 10. Затем мы заменяем отрицательные элементы на нули и сортируем оставшиеся элементы по возрастанию, используя алгоритм сортировки пузырьком. В конце выводим исходный массив, измененный и отсортированный массив.

Обратите внимание, что в этом примере используется генерация случайных чисел с помощью функции Random, поэтому перед запуском программы следует добавить в раздел uses следующую строку:

pascalCopy code
uses
  SysUtils;

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