1. Задайте массив из 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]gt;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.