Question

1. Массив А вводится с клавиатуры. Найти произведение его элементов. Размер
произвольный.
2. Найти произведение четных эл-ов в массиве, заданном датчиком случайных чисел . Размер произвольный.
3. Массив А вводится с клавиатуры. Найти сумму его
элементов с нечетными номерами. Размер произвольный.

Answer 1

1)

var

 d, i: integer;

 A: array[1..10] of integer;

begin

 d := 1;

 write('Введите элементы массива: ');

 for i := 1 to 10 do read(A[i]);

 for i := 1 to 10 do d := d * A[i];

 writeln('Произведение элементов: ' + d);

end.

2)

var

 d, i: integer;

 A: array[1..10] of integer;

begin

 d := 1;

 randomize();

 for i := 1 to 10 do A[i] := random(1,10);

 for i := 1 to 10 do begin

   if A[i] mod 2 = 0 then d := d * A[i];

 end;

 writeln('Произведение элементов: ' + d);

end.

3)

var

 d, i: integer;

 A: array[1..10] of integer;

begin

 d := 1;

 randomize();

 for i := 1 to 10 do A[i] := random(1,10);

 for i := 1 to 10 do begin

   if i mod 2 = 1 then d := d + A[i];

 end;

 writeln('Сумма элементов: ' + d);

end.