Чтобы упростить программу, будем выводить команды типа "сделай ЕДИНИЦА", где ЕДИНИЦА и ДЕВЯТЬ - процедуры. Описание процедуры: процедура <имя процедуры> нач <тело процедуры> кон
процедура ЕДИНИЦА нач поворот шаг шаг шаг шаг поворот поворот прыжок прыжок прыжок прыжок поворот кон
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
a:integer;
begin
write('Введите номер месяца:');read(a);
case a of
1: write('Январь');
2: write('Февраль');
3: write('Март');
4: write('Апрель');
5: write('Май');
6: write('Июнь');
7: write('Июль');
8: write('Август');
9: write('Сентябрь');
10: write('Октябрь');
11: write('Ноябрь');
12: write('Декабрь');
end;
end.