Создайте массив из n

элементов (1 < n < 20) и найдите произведение всех его элементов.

Элементы массива вводятся генератором случайных чисел.

Question

Информатика

Улита

3 ноября, 12:47

Создайте массив из n

элементов (1 < n < 20) и найдите произведение всех его элементов.

Элементы массива вводятся генератором случайных чисел.

+2

Ответы (2)

Знаете ответ на вопрос?

Адолия · Answer 1

var

a: array of integer;

i, n: integer;

k: longint : = 1;

begin

readln (n) ;

a : = new integer[n];

n - = 1;

for i : = 0 to n do

begin

a[i] : = random (10) ;

writeln ('a[', i, '] = > ', a[i]) ;

end;

writeln () ;

foreach i in a do

k * = i;

writeln (k) ;

end.

Стина · Answer 2

Var

a: array [1 ... 20] of integer;

i, n: integer;

k: longint;

begin

readln (n) ;

k : = 1;

for i : = 1 to n do

begin

a[i] : = random (10) ;

write (' ', a[i]) ;

end;

writeln () ;

for i : = 1 to n do

k : = k * a[i];

writeln (k) ;

end.

Создайте массив из nэлементов (1 < n < 20) и найдите произведение всех его элементов.Элементы массива вводятся генератором случайных чисел.

Создайте массив из n

элементов (1 < n < 20) и найдите произведение всех его элементов.

Элементы массива вводятся генератором случайных чисел.