Ответы на вопрос:
Const nm = 100; type mas = array[1..nm] of integer; procedure shell(var a: mas; n: integer); { сортировка методом шелла } var i, j, step, t: integer; begin step : = n div 2; while step > 0 do begin for j : = n - step downto 1 do begin i : = j; while i < = n - step do begin if a[i] > a[i + step] then begin t : = a[i]; a[i] : = a[i + 1]; a[i + 1] : = t end; i : = i + step end end; step : = step div 2 end end; var x: mas; i, n: integer; begin randomize; write('введите число элементов в массиве (1-100): '); readln(n); writeln('исходный массив'); for i : = 1 to n do begin x[i] : = random(101) - 50; write(x[i]: 4) end; shell(x, n); writeln(#13#10, 'отсортированный массив'); for i : = 1 to n do write(x[i]: 4) end. тестовое решение: введите число элементов в массиве (1-100): 20 исходный массив -8 -17 -19 1 -3 23 -33 30 -27 -45 12 26 -24 18 37 8 47 -14 -19 -3 отсортированный массив -45 -33 -27 -24 -19 -19 -17 -14 -8 -3 -3 1 8 12 18 23 26 30 37 47
ответ:
расширение справа от последней точки
название справа от последней точки
12.pdf : 12 название pdf расширение
остальные файлы точно так же
Популярно: Информатика
-
taush21.05.2022 04:06
-
AndreyVisaGold19.03.2023 10:04
-
80zumani07.12.2020 08:40
-
мпппеекк110.04.2020 19:40
-
Ангелина29392216.12.2020 10:10
-
АмаХастла24.04.2023 19:16
-
AyanaHaverfords07.10.2020 21:49
-
vadimbukov11.11.2020 05:20
-
migmo515.05.2020 09:18
-
Котэ112шк15.10.2020 06:21