Упорядочить первую половину одномерного массива по возрастанию элементов с четными индексами - Pascal ABC

Узнай цену своей работы

Формулировка задачи:

Помогите пожалуйста с заданием: Дано одномерный массив. Упорядочить его первую половину по возрастанию элементов с парными индексами. Я не могу сделать вторую часть, с элементами с парными индексами. Вот мой код:

Решение задачи: «Упорядочить первую половину одномерного массива по возрастанию элементов с четными индексами»

textual
Листинг программы
var
 a:array[1..20]of integer;
 i,s,j:integer;
begin
 randomize;
 for i:=1 to 20 do
  begin
   a[i]:=-25+random(50);
   write(a[i]:4);
  end;
 writeln;
 for i:=2 to 9 do
 for j:=i+1 to 10 do
 if(i mod 2=0)and(j mod 2=0)and(a[i]>a[j])then
  begin
   s:=a[i];
   a[i]:=a[j];
   a[j]:=s;
  end;
 for i:=1 to 20 do write(a[i]:4);
 readln;
end.

Объяснение кода листинга программы

В данном коде происходит следующее:

  1. Создается переменная a типа array[1..20]of integer, которая представляет собой одномерный массив из 20 элементов типа integer.
  2. Задаются три переменные i, s и j типа integer. Переменная i используется для итерации по элементам массива, переменная s используется для временного хранения значения элемента, а переменная j используется для сравнения элементов массива.
  3. С помощью цикла for происходит заполнение массива случайными значениями от -25 до 50.
  4. Затем происходит вывод содержимого массива на экран с помощью функции write.
  5. Далее, с использованием вложенных циклов for, происходит сортировка первой половины массива по возрастанию элементов с четными индексами. Если элемент с нечетным индексом больше элемента с четным индексом, то значения этих элементов меняются местами.
  6. Наконец, происходит вывод отсортированной части массива на экран с помощью функции write.

Оцени полезность:

6   голосов , оценка 4.333 из 5
Похожие ответы