Сформируйте массив, содержащий...

Сформируйте массив, содержащий 15 элементов, с помощью датчика случайных чисел. получите новый масив, каждый элемент которого равен среднемуарифметическому соответствующего элемента исходного массива и введенного с клавиатуры числа А. В полученном массиве найдите максимальный элемент среди элементов с нечетными номерами. Выведите на экран исходные и полученные результаты.

 

Uses crt;
const n=15;
var a:array[1..n] of real;
max:real;
i,c:integer;
begin
randomize;
readln(c);
max:=-50;
for i:=1 to n do
begin
a:=random(100)-50;
write(a:4);
end;
writeln;
writeln;
for i:=1 to n do
begin
a:=(c+a)/2 ;
write(a:4);
end;
writeln;
writeln;
for i:=1 to n do
begin
if (i mod 2<>0) then
begin
if a>max then max:=a;
end;
end;
write(max);
end.