НАПИСАТЬ ПРОГРАММУ НА ЯЗЫКЕ ПАСКАЛЬ ДЛЯ ВЫЧИСЛЕНИЯ ЗНАЧЕНИЯ ВЫРАЖЕНИЯ

Var a: array[1..18] of integer; i: integer; begin randomize(); write('исходный массив: '); for i: = 1 to 18 do     begin       a[i]: =-40 + random(121);       write(a[i], ' ');   end; writeln(); write('элементы, состоящие из одинаковых цифр: '); for i: = 1 to 18 do   if (a[i] mod 10 = a[i] div 10 ) then       write(a[i], ' '); end. пример: исходный массив: 40 68 13 -38 -9 29 77 78 27 14 74 42 50 79 -22 -15 22 20 элементы, состоящие из одинаковых цифр: 77 -22 22

11) начало 2) i = 1 2.1) k = i^2 2.2) вывод k 2.3) i = i + 1 2.4) i > 5 ? если да, возвращаемся на 2.1) если нет, окончание цикла. 3) конец. 2 1) начало 2) k = 0 (счетчик нечетных чисел) 3) ввод первого числа a1 3.1) если [a1 / 2] < a1 / 2, то k = k + 1 (ввели нечетное число) 4) ввод второго числа a2 4.1) если [a2 / 2] < a2 / 2, то k = k + 1 (ввели нечетное число) 5) ввод третьего числа a3 5.1) если [a3 / 2] < a3 / 2, то k = k + 1 (ввели нечетное число) 6) вывод k 7) конец 3 1) начало 2) объявление массива а() пока неизвестного размера (динамического) 3) i = 1 3.1) ввод очередного числа a(i) 3.2) если a(i) = 0, то переход на 4) 3.3) i = i + 1 3.4) возврат на 3.1) 4) переопределение динамического массива a(i) размером i элементов. 5) конец