Имеется массив X(N). Вычислить и вывести ** печать сумму и произведение элементов...

Question

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

Answer 1

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.