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

program zz1;

var mas:array[1 ... 10] of integer;

i, k, s, max:integer;

begin

for i:=1 to 10 do / /записываем в массив 10 "случайных" чисел до 100

mas[i]:=random (101);

for i:=1 to 10 do

begin

write (mas[i],' '); / /выводим их на экран в строчку через пробел

if (i mod 2 = 1) and (mas[i] mod 2 = 1) then begin k:=k+1; s:=s+mas[i]; end; / /проверяем, если элемент не четный и он стоит на нечетном номере, то считаем его и добавляем в сумму

end;

writeln; / /переходим на новую строку для вывода

writeln ('среднее арифметическое нечетных чисел стоящих на нечетных номерах = ', s/k); / /выводим ответ

max:=0; / /задаем максимум

for i:=1 to 10 do

if (mas[i]>max) then max:=mas[i]; / /находим максимум

for i:=1 to 10 do

if i mod 2 = 0 then mas[i]:=max; / /заменяем числа на четных местах максимальным

for i:=1 to 10 do

write (mas[i],' '); / /выводим ответ

end.