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

сформируйте массив, содержащий 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[i]:=random(100)-50;
    write(a[i]:4);
    end;
    writeln;
    writeln;
    for i:=1 to n do
    begin
    a[i]:=(c+a[i])/2 ;
    write(a[i]:4);
    end;
    writeln;
    writeln;
    for i:=1 to n do
    begin
    if (i mod 2<>0) then
    begin
    if a[i]>max then max:=a[i];
    end;
    end;
    write(max);
    end.