Таблицы(кусок сделал)

[Vanished]

Найти сумму всех положительных елементов с парными индексами и произвидение всех не нулевых елементов с непарными индексами.
ВОПРОС: как перемножать елемнты массива?
Programm lab;
uses crt;
Var N,i :word ;
A: array [1..100] of longint;
begin
clrscr;
write('vveditb kilbkistb elementiv massuwu (<100): ');
readln(N);
for i=:1 to N do
begin
a:= random(300);
write(A:5);
END;
Writeln;
I:=2;
while I<=n do
begin
write([a]:5);
I:=i+2;
...

[atavin-ta]

В цикле, вестимо. Сам, слышишь, пишешь, а циклу скорми.

[Vanished]

В цикле, вестимо. Сам, слышишь, пишешь, а циклу скорми.

Непонял. Если можно , то поподробней.

[BHy4ok]

ВОПРОС: как перемножать елемнты массива?

var
a:integer;
begin
a:=m*m[j];

[atavin-ta]

Циклом умножай. Как же ещё?