Одномерные массивы, нахождение среднего арифметического
 

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.

А цикл ввода Пушкин организовывать будет? :D

Вот другой вариант
 

uses crt;
var c:array[1..100]of real;
k:byte;
n,i:real;
s:real;
Begin
clrscr;
write('Vvedite kol-vo elementov: ');readln(n);
for i:=1 to n do
BEGIN
writeln('Vvedite znachenie: ');readln(c[i]);
end;
s:=0; k:=0;
for i:=1 to n do
begin
if i mod 2=0 and (c[i]>0) then
s:=s+c[i];
k:=k+1;
write(c[i]);
end;
writeln;
writeln('Srednee arifmetichescoe: ',s/k);
readln;
End.

Эта сначала запустилась,но среднее арифметическое не правильно вычисляет да и массив выводится не так как надо
потом я что-то поменяла и ошибка вышла что-то с типами связано ...???

Еще как связано! Ну кто же, скажите на милость, задает переменную цикла и количество членов массива в формате "real"?!! Абсолютно не годится! Есть и еще ошибки. Например, если в операторе If стоит не одно, а несколько условий, свзанных отношениями and и or, то эти условия ОБЯЗАТЕЛЬНО должны быть взяты в круглые скобки. Есть и еще помарки, в общем, вот исправленный вариант. Попробуйте разобраться:

СПАСИБО
 

а можно еще вывести заданный массив после ввода элементов... извините я просто не хочу опять ошибок наделать

Легко:

А можно как ни будь этот же код, только сделать так, что бы кол-во чисел которые ввел, можно было через запятую писать, или через пробел

Не понял. Что значит "количество чисел через запятую"? Или Вам надо, чтобы можно было весь массив набить на экране а потом одним нажатием "Enter" его ввести? Можно. Но никаких запятых - только пробелы!!!
Сразу отмечу недостаток такого метода: Вы сами должны контролировать совпадение количества набранных чисел с введенной длиной массива.

Спасибо огромное! Прям то что нужно!