Question

ПОМОГИТЕ СРОЧНО!!!!!! 30 баллов через паскаль Решить задачу: Дан массив(N элементов, случайные числа,отрезок (-50,70]). Найти произведениеположительных элементов и суммунечетных элементов массива​

Answer 1

Объяснение:

как то так...правда немножко не на нашем языке...

Answer 2

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

pascalCopy code
program CalculateProductAndSum;
const
  N = 10; // Задайте необходимый размер массива
var
  arr: array[1..N] of integer;
  i: integer;
  productOfPositives: integer;
  sumOfOdds: integer;
begin
  // Инициализация генератора случайных чисел
  Randomize;

  // Заполнение массива случайными числами
  for i := 1 to N do
    arr[i] := Random(121) - 50; // Генерируем случайное число от -50 до 70

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

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

    if arr[i] mod 2 <> 0 then
      sumOfOdds := sumOfOdds + arr[i];
  end;

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

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

  readln;
end.

Программа создает массив случайных чисел от -50 до 69, вычисляет произведение положительных элементов и сумму нечетных элементов этого массива и выводит результат. Помните, что вы можете изменить значение N на необходимое количество элементов в массиве.