народ, всем привет. помогите пожал.та
1. дан одномерный массив, состоящий из n элементов. Вычислить сумму положительных элементов, имеющих четные номера!!!. (n- целое, не больше 50)

program kr3;
var a:array [1..10] of real;
s,n,i:integer;
begin writeln('n'); readln(n);
for i;=1 to n do read (a[i]);
s:=0;
for i:=1 to n do
if a[i]>0 далее не заню как прописать четные номера пишу and (a[i] mod 2=0) and (not odd a[i]) then но это неверно паскаль пишет мне ошибки
s:=s+a[i];
writeln('s=',s:4:2);
readln;
end.
это по первой задаче.

1)В первом цикле двоеточие,а у вас точка с запятой после i
2)if (a[i]>0) and (i mod 2 = 0) then ...

хорошо попробую спасибо.
вот вторая задача
program kr3 ;
var a,f,x:real;
i,k,m:integer;
begin writeln('m');
readln(m);
for i:=1 to m do read (a[i], x[i]);
f:=1;
for i:=1 to m do
f:=f*((x[i]+1)/(a[i]-2*x[i]);
writeln('f=',f:4:2);
readln;
end.
паскаль пишет ошибку invalid qualifier в 6-ой строчке. там где a[i]