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

Question

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

Answer 1

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.