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