Для паскаля. во входном файле имеется массив из 10 целых чисел. первые 9 элементов . в выходной файл вставить 10-й элемент так, чтобы все элементы массива были .

Const   n = 10; var   i, k, j: integer;   a: array[1..n] of integer; begin   write('введите через пробел девять целых чисел в порядке возрастания: ');   for i : = 1 to n - 1 do read(a[i]);   write('введите целое число для вставки: '); read(k);   {определим позицию для вставки}   i : = 1;   while (k > a[i]) and (i < n) do i : = i + 1;   {выполним сдвиг больших элементов вправо}   for j : = n - 1 downto i do a[j + 1] : = a[j];   {осуществим вставку}   a[i] : = k;   {контрольный вывод}   writeln('результирующий массив');   for i : = 1 to n do write(a[i], ' ') end. тестовые решения: введите через пробел девять целых чисел в порядке возрастания: 3 6 8 10 14 15 17 19 24 введите целое число для вставки: 25 результирующий массив 3 6 8 10 14 15 17 19 24 25 введите через пробел девять целых чисел в порядке возрастания: 3 6 8 10 14 15 17 19 24 введите целое число для вставки: 0 результирующий массив 0 3 6 8 10 14 15 17 19 24 введите через пробел девять целых чисел в порядке возрастания: 3 6 8 10 14 15 17 19 24 введите целое число для вставки: 13 результирующий массив 3 6 8 10 13 14 15 17 19 24

25 - 1 = 24 24 - 2 = 22 22 - 1 = 21 21 - 2 = 19 (1 и 2)