Имеется массив 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.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
