Массив содержит четное количество элементов. Напишите программу, которая сортирует первую половину массива по возрастанию, а
вторую – по убыванию. Каждый элемент должен остаться в «своей» половине. Пример: Массив: 5 3 4 2 1 6 3 2 После сортировки: 2 3 4 5 6 3 2 1В Паскале АВС
Знаешь ответ?
Чтобы оставить ответ, войдите или зарегистрируйтесь.
Ответ или решение 1
Теодосий
Const N = 10; Var A:array[1..N] of integer; i,j:integer; Begin Write('Исходный массив: '); For i:= 1 to N do Begin A[i]:=random(21)-10; Write(A[i],' ') End; WriteLn; Write('Отсортированный массив: '); For j:= 1 to N div 2 do For i:= 1 to N div 2-1 do if A[i]>A[i+1] then Swap(A[i],A[i+1]); For j:= 1 to N div 2 do For i:= N div 2 to N-1 do if A[i]
Новые вопросы в разделе Информатика
Адинела
05.10.2022, 08:15
Гаязутдин
05.10.2022, 01:10
Алайбек
05.10.2022, 01:05
Акияма
05.10.2022, 01:00
