Решите, проверьте в паскале и только потом отправляйте.

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

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

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

Question

Информатика

Кантидиан

17 апреля, 12:59

Решите, проверьте в паскале и только потом отправляйте.

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

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

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

+2

Ответы (2)

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

София · Answer 1

Const

n = 20;

var

i: integer;

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

p: real;

begin

Randomize;

p : = 1;

for i : = 1 to n do

begin

a[i] : = Random (21) - 10;

p : = p * a[i]

end;

writeln ('Произведение всех элементов равно ', p:0:0)

end.

Тестовое решение:

Произведение всех элементов равно - 15431472000000

Апрелия · Answer 2

var

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

i, n: integer;

k: longint;

begin

k : = 1;

readln (n) ;

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.