Turbo Pascal
Дан массив С(N). Найти среднее арифметическое положительных элементов с чётными индексами.
Задача простая,но пишу программу и постоянно ошибки выдает.Уже не знаю что делать!
Вот
uses crt;
var C:array[1..100] of real;
i,k,n:real;
S:real;
begin
clrscr;
write('Vvedite kol-vo elementov:');readln(n);
write('vvedite znachenie:');
readln(c[i]);
k:=0; s:=0;
for i:=1 to n do
begin
if (i) mod 2=0 and (c[i]>0) then begin
s:=s+c[i];inc(k);
end;
writeln('Srednee arifmetichescoe= ',s/k);
end;
readkey;
end.