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