Question

Сделать на Паскале №1. Вычислить сумму и произведение элементов массива, количество элементов которого равно 50, элементы массива задаются случайным образом. Результат вывести на экран.

Answer 1

// PascalABC.NET

begin

   var a := ArrRandom(50, -99, 99);

   a.Println;

   Println('Сумма', a.Sum);

   Print('Произведение', a.Select(p -> real(p)).Product)

end.

Answer 2

Ответ:

Во вложении.

Объяснение:

Answer 3

Конечно, вот пример программы на Pascal для выполнения данной задачи:

pascalCopy code
program SumAndProduct;

const
  ArraySize = 50;

var
  arr: array[1..ArraySize] of Integer;
  i, sum, product: Integer;

begin
  // Инициализация генератора случайных чисел
  Randomize;

  // Заполнение массива случайными числами
  for i := 1 to ArraySize do
    arr[i] := Random(101); // Генерируем случайное число от 0 до 100

  // Вычисление суммы и произведения элементов массива
  sum := 0;
  product := 1;
  for i := 1 to ArraySize do
  begin
    sum := sum + arr[i];
    product := product * arr[i];
  end;

  // Вывод результатов на экран
  Writeln('Элементы массива:');
  for i := 1 to ArraySize do
    Write(arr[i], ' ');
  Writeln;
  Writeln('Сумма элементов: ', sum);
  Writeln('Произведение элементов: ', product);

end.

Этот код создает массив из 50 случайных чисел, затем вычисляет сумму и произведение элементов массива и выводит результаты на экран. Вы можете скомпилировать и запустить этот код с помощью своей среды разработки Pascal.