СРОЧНОВ ЧЕМ ОШИБКА И ЧТО НЕ ПРАВИЛЬНО???

Question

СРОЧНОВ ЧЕМ ОШИБКА И ЧТО НЕ ПРАВИЛЬНО???

---

Comments

1) Один "End." лишний

---

2) Программа у тебя считает сумму чётных чисел, причёем здесь среднее арифметическое не понятно. Предпоследняя строка должна выглядеть так Writeln('сумма четных чисес = ' , s);

---

Ошибка, не чётных, а каждое второе. В чём смысл программы? Задача?

---

Переменная s нигде не объявлена

Answer 1

Var a: array [1..100] of real;
i,n: integer;
begin
writeln('Введите число');
readln(a[i]);
s:=0;
for i:=1 to n do
if i mod 2 = 0 then s:=s+a[i];
writrln('Найти среднее арифметическое ',s);
end.

Но сама программа неправильно написана... Она не будет вычислять среднее арифметическое четных элементов массива