Question

Одномерный массив из 15 элементов случайным образом (отрицательные и положительные) найти произведение положительных, сумму отрицательных (в паскале)

Answer 1

Var k,i,sum:integer;P:longint;R:Array[1..15] of integer;Beginp:=1;for i:=1 to 15 do beginR[i]:= random(15)-5;write(R[i]:3);if R[i] > 0 then p:= p *R[i];if R[i] < 0 then sum:= sum + R[i];end;writeln;writeln('произведение положительных чисел = ',p);writeln('сумму отрицательных чисел = ',sum)end.

Answer 2

Для решения этой задачи, нужно сгенерировать массив из 15 случайных чисел, а затем найти произведение положительных чисел и сумму отрицательных чисел в Pascal (сумма негативных элементов).

Давайте представим алгоритм для выполнения этой задачи:

1. Сгенерируем одномерный массив из 15 элементов, содержащий случайные числа (положительные и отрицательные).
2. Пройдем по массиву и вычислим произведение всех положительных чисел.
3. Вычислим сумму всех отрицательных чисел в Pascal.

Для удобства, будем использовать Pascal (используя переменные и циклы) для вычисления суммы отрицательных чисел.

Пример кода на Pascal (Delphi) для выполнения этой задачи:

pascalCopy code
program FindProductAndSum;
var
  arr: array[1..15] of Integer;
  i: Integer;
  productOfPositives: Integer;
  sumOfNegatives: Integer;
begin
  // Инициализация генератора случайных чисел
  Randomize;

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

  // Инициализация переменных
  productOfPositives := 1;
  sumOfNegatives := 0;

  // Вычисление произведения положительных чисел и суммы отрицательных чисел
  for i := 1 to 15 do
  begin
    if arr[i] > 0 then
      productOfPositives := productOfPositives * arr[i]
    else if arr[i] < 0 then
      sumOfNegatives := sumOfNegatives + arr[i];
  end;

  // Вывод результатов
  writeln('Массив:');
  for i := 1 to 15 do
    write(arr[i], ' ');

  writeln;
  writeln('Произведение положительных чисел: ', productOfPositives);
  writeln('Сумма отрицательных чисел: ', sumOfNegatives);

end.

Обратите внимание, что я использовал Pascal (Delphi) для решения этой задачи, но вы можете адаптировать алгоритм и на других языках программирования. Алгоритм останется примерно таким же, но код будет различаться в зависимости от выбранного языка.