Question

Дан массив из 50 элементов,значения которых формируются функцией random и лежат в диапазоне от -10 до 32 включительно.Необходимо вывести сумму четных чисел массива и произведение нечетных чисел массива В ПАСКАЛЕ ПОЖАЛУЙСТА.РАДИ БОГА!!!​

Answer 1

begin

 var a:=ArrRandom(50,-10,32);

 var pr:=1;

 ('Сумма', a.Where(x-> x.IsEven).Sum , 'Произведение', a.Where(x-> x.IsOdd).Product).Println;

end.

Answer 2

Ответ:

(см. объяснение)

Объяснение:

Вот код рабочей программы. Программа написана на языке PascalABC.NET версии 3.2, сборка 1325.

P.s: В PascalABC.NET допустимо объявление переменных в теле программы и сразу же их инициализация. В коде ошибок нет. Программа проверена и работает успешно.

begin

 var sum: integer := 0;

 var pr: integer := 1;

 var a:= ArrRandom(50, -10, 32);

 foreach x: integer in a

   do begin

         if(x.isEven()) then sum+= x

         else pr*= x;

      end;

 writeln('Сумма четных элементов массива: ', sum);

 writeln('Произведение нечетных элементов массива: ', pr);

end.

Answer 3

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

pascalCopy code
program ArrayOperations;

const
  N = 50;

var
  arr: array[1..N] of integer;
  i: integer;
  evenSum, oddProduct: integer;

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

  // Заполнение массива случайными числами от -10 до 32
  for i := 1 to N do
    arr[i] := Random(43) - 10; // Random(43) генерирует числа от 0 до 42, прибавляем -10 для получения чисел от -10 до 32

  // Вывод содержимого массива
  writeln('Массив:');
  for i := 1 to N do
    write(arr[i]:4);

  // Нахождение суммы четных чисел и произведения нечетных чисел
  evenSum := 0;
  oddProduct := 1;
  for i := 1 to N do
  begin
    if arr[i] mod 2 = 0 then // Проверка на четность числа
      evenSum := evenSum + arr[i]
    else
      oddProduct := oddProduct * arr[i];
  end;

  // Вывод результата
  writeln;
  writeln('Сумма четных чисел: ', evenSum);
  writeln('Произведение нечетных чисел: ', oddProduct);

  readln;
end.

Обратите внимание, что в коде используется функция Randomize для инициализации генератора случайных чисел, и Random(43) - 10 для генерации случайных чисел в заданном диапазоне от -10 до 32 (включительно). Всего генерируется 50 элементов массива, которые затем обрабатываются для нахождения суммы четных чисел и произведения нечетных чисел.