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.