1. Задайте массив из 10 элементов с помощью датчика случайных чисел. Найдите среднее арифметическое нечетных элементов массива с нечетными индексами. выведите на экран исходный массив и полученное среднее арифметическое.

2. Задайте массив из 10 элементов с помощью датчика случайных чисел. замените все элементы с четными индексами максимальными. Выведите на экран исходный и измененный массивы

1. program z;

var a:array [1 ... 10] of integer; i, t:integer; s:real;

begin

for i:=1 to 10 do

begin

a[i]:=random (1,100) ;

write (a[i]:4) ;

if (odd (i)) and (odd (a[i])) then

begin

s:=s+a[i];

t:=t+1;

end;

end;

writeln;

write ('Cреднее арифметическое = ', s/t) ;

end.

2. program z;

var a:array[1 ... 10] of integer; max, i:integer;

begin

writeln ('Исходный массив') ;

for i:=1 to 10 do

begin

a[i]:=random (1,100) ;

write (a[i]:4) ;

if a[i]>max then max:=a[i];

end;

writeln;

writeln ('Измененный массив') ;

for i:=1 to 10 do

begin

if not (odd (a[i])) then a[i]:=max;

write (a[i]:4) ;

end;

end.