Question

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

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.

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