несложные задачки на паскале, нужна помощь Опции

[tonibis]

народ, всем привет. помогите пожал.та
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 ...

[tonibis]

хорошо попробую спасибо.
вот вторая задача
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]

[граф Монте-Кристо]

Конечно,ещё бы ему не ругаться. Вы а и х объявили real'ами,а потом нагло обманываете бедный паскаль и говорите,что теперь они у вас массивы. А кто память под них выделять будет?(IMG:style_emoticons/default/smile.gif)

[tonibis]

подскажите пожалуйста. не идут задачи хоть тресни.
там где массив не знаю как в условии правильно прописать положительные элементы, имеющие четные номера. if a[i]>0 and (a[i] mod 2=0) and not odd a[i]) then
так неверно, а как пока не знаю (IMG:style_emoticons/default/huh.gif)
еще где
s:=s+a[i]; пишет ошибку типа tipe mistake
помогите довести задачу до ума чтоб работала на паскале.
с проверкой

[граф Монте-Кристо]

Я же Вам написал условие в первом сообщении. По поводу ошибки - она выскакивает, потому что у Вас типы переменных a[i] и s разные. Сделайте один, лучше real для обеих,тогда всё будет нормально.

[tonibis]

большое спасибо. теперь все работает (IMG:style_emoticons/default/smile.gif)