Найти среднее арифметическое нечетных элементов массива с нечетными индексами - QBasic

Формулировка задачи:

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

Решение задачи: «Найти среднее арифметическое нечетных элементов массива с нечетными индексами»

Листинг программы

CLS : DIM i AS INTEGER
RANDOMIZE TIMER
  FOR i = 1 TO 10
     A(i) = INT(RND * 100)
     PRINT A(i);
  NEXT: PRINT
 
  Mx = A(1)
    FOR i = 1 TO 10
       IF A(i) > Mx THEN Mx = A(i)
    NEXT
    FOR i = 2 TO 10 STEP 2
       A(i) = Mx
    NEXT
 
  FOR i = 1 TO 10
     PRINT A(i);
  NEXT

Объяснение кода листинга программы

Объявляется переменная i типа INTEGER.
Устанавливается начальное значение для RND (генератора случайных чисел).
Заполняется массив A случайными целыми числами от 0 до 100.
Выводится на экран содержимое массива A.
Находится максимальное значение в массиве A и сохраняется в переменной Mx.
Заполняется массив A значениями из переменной Mx, начиная с индекса 2 и с шагом 2.
Выводится на экран содержимое массива A.