Здравствуйте, amelya.kuro!
Можно так:
[code lang=pascal]{$APPTYPE CONSOLE}

uses
SysUtils;

var
a: array[1..10] of integer;
i, x, y: integer;
begin
x:= 0;
y:= 0;
{создаем массив a}
for i:= 1 to 10 do
begin
a[i]:= random(100);
write(a[i]:3);
end;
writeln;
{находим суммы чётных и нечётных позиций}
for i:= 1 to 10 do
begin
if i mod 2 = 0 then
x:= x + a[i]
else
y:= y + a[i];
end;
{выводим результат}
write('summa chetnyh ');
write(x);
writeln;
write('summa ne chetnyh ');
write(y);

end.[/code]

Здравствуйте, amelya.kuro!

А можно так:
[code lang=pascal h=100]const
n=20;
var
c,d,e:integer;
z:array[1..n]of integer;
begin
for c:=1 to n do
begin
z[c]:=random(50);{создаем элемент}
if odd(c)then d:=d+z[c] else e:=e+z[c];{суммируем п заданию}
write(z[c]:3);
end;
writeln;{выводим результат}
writeln('summa odd position:',d:5);
writeln('summa even position:',e:5);
end.[/code]

И с произведением:
[code lang=pascal h=100]const
n=20;
var
c,d,e:integer;
z:array[1..n]of integer;
begin
d:=1;
e:=1;
for c:=1 to n do
begin
z[c]:=random(50);{создаем элемент}
if odd(c)then d:=d*z[c] else e:=e*z[c];{умножаем по заданию}
write(z[c]:3);{}
end;
writeln;{выводим результат}
writeln('summa odd position:',d:5);
writeln('summa even position:',e:5);
end.[/code]

Удачи!