Ответы на вопрос:
// pascalabc.net 3.0, сборка 1160 от 05.02.2016 procedure permutation(x: array of integer); begin var imin: =0; for var i: =1 to x.length-1 do if x[i]< x[imin] then imin: =i; var im: =(x.length div 2); swap(x[imin],x[im]) end; begin var a: =arrrandom(readinteger('n='),10,99); a.println; permutation(a); a.println; end. тестовое решение: n= 7 90 89 97 63 95 21 56 90 89 97 21 95 63 56
Популярно: Информатика
-
Marrrrrrk18.01.2022 02:58
-
лера1206120613.05.2022 14:18
-
yuliandra14.10.2020 02:46
-
ThePud05.07.2020 03:48
-
liteman1000ow7ldr10.04.2020 23:30
-
kolosochok109.03.2020 04:59
-
2003lyuba21.12.2021 10:40
-
olliu5605.12.2022 22:54
-
K1rysha17.02.2020 11:47
-
ДмитрийНазаров114.07.2021 08:51