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