С помощью датчика случайных чисел создайте массив из 8 вещественных чисел и найдите их произведение Спасибо заранее)) В Паскаль
Answers & Comments
Maksim2009rus
Const N = 8; var A: array [1..N] of real; prod: real; i: integer; begin randomize; prod := 1; // Заполнение массива for i := 1 to N do begin A[i] := random*10 - 5; prod *= A[i]; end; // Вывод произведения на экран write('Произведение: ', prod, '.'); end.
Answers & Comments
N = 8;
var
A: array [1..N] of real;
prod: real;
i: integer;
begin
randomize;
prod := 1;
// Заполнение массива
for i := 1 to N do begin
A[i] := random*10 - 5;
prod *= A[i];
end;
// Вывод произведения на экран
write('Произведение: ', prod, '.');
end.