Сформируйте массив, содержащий 15 элементов, с помощью датчика случайных чисел. Получите новый массив, каждый элемент которого равен среднемуарифметическому соответствующего элемента исходного массива и введенного с клавиатуры числа A. В полученном массиве найдите максимальный элемент среди элементов с нечетными номерами. Выведите на экран исходные и полученные результаты. пожалуйста напишите полностью всю программу
var arr : array [1..15] of real; a, max : real; i : integer; begin read (a); randomize; for i := 1 to 15 do arr := random (20); for i := 1 to 15 do write (arr, ' '); writeln; writeln; for i := 1 to 15 do write ((arr + a) / 2, ' '); max := arr[1]; writeln; for i := 3 to 15 do if i mod 2 = 1 then if arr > max then max := arr; writeln ('max =', max); end.
