Найти сумму элементов массива вещественных чисел, имеющих нечетные номера - Pascal

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

Здравствуйте! Помогите пожалуйста решить 5 задач по массивам! 1) Составить алгоритм, отвечающий на вопрос "В какие дни в мае была самая высокая температура?" Найти среднюю температуру в мае.(примечание: в мае 31 день, от себя 2) Найти сумму элементов массива вещественных чисел, имеющих нечетные номера. Размерность массива - 20. Заполнение массива осуществить случайными числами от 100 до 200. 3) Массив из N элементов заполнен числами из интервала (30;40]. Найти минимальный элемент и максимальный и их среднее арифметическое. Распечатать все элементы с их номерами, которые больше среднего арифметического. 4) В целочисленном массиве А(10)(размерность массива равна 10, от себя поменять местами максимальный и минимальный элемент массива. Массив заполнен вводом с клавиатуры. 5) В целочисленном двумерном массиве А(5,5) заменить все элементы по главной диагонали количеством нулей в данном массиве. Массив заполнен датчиком случайных чисел из промежутка [-1,2). Буду очень признательна тому(тем), кто поможет мне это решить) До встречи

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

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

begin
    a[i]:=100*random+100;
    write(a[i]:8:2);
    if odd(i) then  sum:=sum+a[i];
 end;

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

Создается переменная a типа массив вещественных чисел с длиной 20 элементов.
Для каждого элемента i массива a выполняется следующее: — Вычисляется значение a[i]: 100*random+100, где random — случайное число от 0 до 99. — Значение a[i] выводится на экран с помощью функции write. — Проверяется условие if odd(i) then sum:=sum+a[i], где odd(i) — функция, возвращающая истину, если номер элемента i нечетный, и ложь в противном случае. — Если условие истинно, то к переменной sum прибавляется значение a[i].
Код завершается.