Question

Выполнить задачу в Pascal ABC: Дан одномерный массив из N чисел, заполненных случайно в диапазоне от 0 до 50 (рандомно). Найти сумму и произведение этих чисел.

Answer 1

Ответ:

вот как то так

Объяснение:

если нужно объяснить- пиши в лс

т.к. не указанно сколько элементов в массиве, я взял случайное число

Answer 2

Конечно! Вот пример решения задачи на нахождение суммы и произведения чисел в одномерном массиве в Pascal ABC:

pascalCopy code
program SumAndProduct;

const
  N = 10; // Количество элементов в массиве

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

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

  // Инициализация суммы и произведения
  sum := 0;
  product := 1;

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

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

  readln;
end.

Программа создает одномерный массив arr размером N и заполняет его случайными числами от 0 до 50 с помощью функции Random. Затем сумма и произведение элементов вычисляются с использованием цикла for. Результаты выводятся на экран с помощью процедуры writeln.