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

Question

Информатика

Маняша

10 января, 03:45

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

+3

Ответы (1)

Знаешь ответ?

Лаврич · 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.