Имеется массив X (N). Вычислить и вывести на печать сумму и произведение элементов массива, имеющих чётный номер. Массив X (N) вывести на печать.

Const NX = 30;

Var A:array[1 ... NX]of integer; i, N, s, p:integer;

Begin

WriteLn ('Введите число элементов массива') ; Read (N) ;

p:=1; Randomize;

For i: = 1 to N do Begin

A[i]: = random (25) - 10;

if i mod 2 = 0 then begin

s: = s + A[i]; p:=p * A[i];

Write (A[i]:4) ; End; End;

Writeln; Writeln ('Массив Х[', N,']') ;

For i: = 1 to N do

Write (A[i]:4) ;

Writeln; Writeln ('Сумма S = ', s) ;

Writeln ('Произведение Р = ', P) ; End.