Сформируйте массив, содержащий 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[i] := random (20);
for i := 1 to 15 do
write (arr[i], ' ');
writeln; writeln;
for i := 1 to 15 do
write ((arr[i] + a) / 2, ' ');
max := arr[1];
writeln;
for i := 3 to 15 do
if i mod 2 = 1 then
if arr[i] > max then max := arr[i];
writeln ('max =', max);
end.