Question

Напишите программу, которая заполняет массив из 10 элементов случайными числами на отрезке [–2; 2] и находит произведение ненулевых элементов. PASCAL Заранее спасибо.

Answer 1

##

var a := ArrRandom(10, -2, 2);

a.Println;

a.Where(t -> t <> 0).Product.Print

Answer 2

Конечно, вот программа на Pascal, которая создает массив из 10 случайных чисел в диапазоне от -2 до 2 и находит произведение ненулевых элементов:

pascalCopy code
program RandomArrayProduct;
var
  arr: array[1..10] of integer;
  i: integer;
  product: integer;

begin
  // Инициализация генератора случайных чисел
  Randomize;
  
  // Заполняем массив случайными числами от -2 до 2
  for i := 1 to 10 do
    arr[i] := Random(5) - 2;

  // Инициализируем произведение значением 1
  product := 1;

  // Находим произведение ненулевых элементов
  for i := 1 to 10 do
  begin
    if arr[i] <> 0 then
      product := product * arr[i];
  end;

  // Выводим массив и произведение
  writeln('Массив:');
  for i := 1 to 10 do
    write(arr[i], ' ');
  
  writeln;
  writeln('Произведение ненулевых элементов: ', product);

end.

Эта программа создает массив arr из 10 случайных чисел в диапазоне от -2 до 2, а затем находит произведение ненулевых элементов массива.