Question

PASCAL построить массив из 100 случайных значений принадлежащих диапозону (-k m) организовать вывод массива на экран чтобы каждое значение было на новой строке в зависимоси от чётности k и m. сделать следующее задание 1) высчитать сумму положительных элементов массива 2) высчитать сумму отрицательных чисел массива 1: k*m нечётное 2: k*m чётное

Answer 1

PascalABC

Объяснение:

begin

   WriteLn('Введите значение k: ');

   var k := ReadInteger;;

   WriteLn('Введите значение m: ');

   var m := ReadInteger;;

   var a := ArrRandomInteger(100, -k, m);

   a.Print(NewLine); WriteLn;

   if ((k * m) mod 2 = 0) then WriteLn('k * m - четное. Сумма отрицательных элементов равна ', a.Where(x -> x < 0).Sum)

     else WriteLn('k * m - нечетное. Сумма положительных элементов равна ', a.Where(x -> x > 0).Sum);

end.