Программирование! Массивы!

Домашнее задание:

№ 1. Найти сумму элементов массива с четными номерами, содержащего N элементов. Элементы вводятся с клавиатуры. Проверить работу программы.

Program sumshet;

Var a: array[1..100] of  real;

      i, n: integer;

        s,sred: real;

Begin

  Write (‘n=’); Readln (n);

  s:=0;

  For i:=1 to n do

     begin

       write (‘введите число’); readln (a[i]);

       if i mod 2 = 0 then s:=s+a[i];

     end;

   writeln(‘сумма элементов с четными номерами: ‘,s);

End.

Самостоятельно написать программу!

№ 2. Задан массив А, состоящий из n чисел. Найти среднее арифметическое его элементов. Элементы вводятся с клавиатуры.