Помогите пожалуйста срочно!Turbo pascal.

[ZMEEEI]

не могу задачу на паскале решить! помогите!http://www.programmersforum.ru/images/smilies/mad.gif
Задача: "найти произведение элементов на нечетных местах".
спасибо заранее!!!

[n1-0se4ka]

на нечетных местах чего?
массива?

[ZMEEEI]

да!массива!забыл написать!

[n1-0se4ka]

program qwe;
const
n=10;
var
a: array [1..N] of integer;
i,s:integer;
begin
randomize;
for i:=1 to n do begin
a[i]:=random(10) ;
writeln (a[i]);
end;
I:=1;
s:=1;
while I <=n do begin
s:=s*a[i];
i:=i+2;
end;
writeln ('s=',s);
end.


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

[ZMEEEI]

ОГРОМНОЕ СПАСИБО!!!