Афоньевич
6 год назад
Решить задачу на программирование в abc Pascal.
Дано n чисел. Найти сумму отрицательных чисел кратных 4. (x от -30000 до +30000)
ОТВЕТЫ
Эммануил
Aug 2, 2019
//PascalABC.Net 3.1.0.1200
begin
var a := ArrRandomInteger(ReadInteger(n =), -30000, 30000);
Println(a);
writeln(a.Where(x -gt; (x lt; 0) and (x mod 4 = 0)).Sum);
end.
begin
var a := ArrRandomInteger(ReadInteger(n =), -30000, 30000);
Println(a);
writeln(a.Where(x -gt; (x lt; 0) and (x mod 4 = 0)).Sum);
end.
272
Смежные вопросы:
