Создайте массив из n элементов (1 меньше n меньше 20) и найдите произведение всех его элементов. Элементы массива вводятся генератором случайных чисел.
Создайте массив из n
элементов (1 < n < 20) и найдите произведение всех его элементов.
Элементы массива вводятся генератором случайных чисел.
Гость
Ответ(ы) на вопрос:
Гость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.
Гость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.
Не нашли ответ?
Похожие вопросы