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