Ответы на вопрос:
Как ч понял сортировка по неубыванию это сортировка по возрастанию. то есть легкие элементы всплывают наверх, а тяжелые перемещаются вниз: //pascal const m = 1000 var arr: array[1..m] of integer; n,i, j, k: integer; begin readln(n); write ('исходный массив: '); for i : = 1 to n do begin readln(arr[i]); end; //сортировка методом пузырька for i : = 1 to n-1 do for j : = 1 to n-i do if arr[j] > arr[j+1] then begin k : = arr[j]; arr[j] : = arr[j+1]; arr[j+1] : = k end; write ('отсортированный массив: '); for i : = 1 to n do write (arr[i]: 4); end. алгоритм сортировки на классическом языке программирования с # define swap(a,b) {a=a^b; b=a^b; a=a^b; }void bubblesort(int a[], int n) { int i, j; for(i = n-1 ; i > 0 ; { for(j = 0 ; j < i ; j++) { if( a[j] > a[j+1] ) swap(a[j],a[j+1]); } } }
Популярно: Информатика
-
SashaV200322.03.2022 17:28
-
Elena20720702.05.2022 06:51
-
kyrenkovalena811.01.2022 06:26
-
xach512.04.2022 21:59
-
lenapotiy0302.03.2022 08:42
-
dashbrazhik23.09.2020 17:33
-
sasulencijaozq7jr08.03.2021 19:17
-
Reaper65521.11.2022 16:27
-
ulyana1454728.12.2020 22:57
-
semenem1503.09.2022 20:50