Спрограммой по информатике! ( задана последовательность целых чисел(ввод с клавиатуры),количество которых не превосходит 100.требуется расположить элементы последовательности в возрастающем порядке.

Const   nm = 100; {максимальная длина массива} var   i, j, n, step, t: integer;   a: array[1..nm] of integer; begin   write('введите количество элементов в массиве: ');   readln(n);   write('введите элементы массива через пробел ');   for i : = 1 to n do read(a[i]);   { сортировка методом шелла }   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 + step]; a[i + step] : = t               end;               i : = i + step           end       end;       step : = step div 2   end;   writeln('*** отсортированный массив ***');   for i : = 1 to n do write(a[i], ' ') end. тестовое решение: введите количество элементов в массиве: 15 введите элементы массива через пробел 15 26 -35 7 0 21 5 9 27 0 -11 26 4 42 -23 *** отсортированный массив *** -35 -23 -11 0 0 4 5 7 9 15 21 26 26 27 42

1. после выполнения присваивания в первых 3х строках получим a=90 2. следовательно с=90-3*6 = 72 ответ: 72