program RandomArray; var randomNumbers: array[1..8] of real; product: real; i: integer; begin Randomize; // Заполнение массива случайными вещественными числами for i := 1 to 8 do begin randomNumbers[i] := Random * 100; // Генерация числа от 0 до 100 end; // Вывод элементов массива writeln('Random numbers:'); for i := 1 to 8 do begin writeln(randomNumbers[i]:8:2); end; // Вычисление произведения элементов массива product := 1; for i := 1 to 8 do begin product := product * randomNumbers[i]; end; // Вывод произведения writeln('Product: ', product:8:2); end.
При каждом запуске программы будут выводиться новые случайные вещественные числа и их произведение. Надеюсь, это поможет! Если у вас есть другие вопросы или нужна дополнительная помощь, пожалуйста, дайте знать.
, это можно сделать следующим образом:
program RandomArray;var
randomNumbers: array[1..8] of real;
product: real;
i: integer;
begin
Randomize;
// Заполнение массива случайными вещественными числами
for i := 1 to 8 do
begin
randomNumbers[i] := Random * 100; // Генерация числа от 0 до 100
end;
// Вывод элементов массива
writeln('Random numbers:');
for i := 1 to 8 do
begin
writeln(randomNumbers[i]:8:2);
end;
// Вычисление произведения элементов массива
product := 1;
for i := 1 to 8 do
begin
product := product * randomNumbers[i];
end;
// Вывод произведения
writeln('Product: ', product:8:2);
end.
При каждом запуске программы будут выводиться новые случайные вещественные числа и их произведение. Надеюсь, это поможет! Если у вас есть другие вопросы или нужна дополнительная помощь, пожалуйста, дайте знать.