Предмет: Информатика, автор: Аноним

Решить задачу на программирование в abc Pascal.
Дано n чисел. Найти сумму отрицательных чисел кратных 4. (x от -30000 до +30000)

Ответы

Автор ответа: Aillianna
0
//PascalABC.Net 3.1.0.1200
begin
    var a := ArrRandomInteger(ReadInteger('n ='), -30000, 30000);
    Println(a);
    writeln(a.Where(x -> (x < 0) and (x mod 4 = 0)).Sum);
end.
Похожие вопросы
Предмет: Биология, автор: dakonovaviktoria06
Предмет: Биология, автор: velichkovo2005