ПАСКАЛЬ
Найти сумму положительных и количество отрицательных элементов в одномерном массиве: 0; 15; 12; -9; -8; 58; 45; 36; -85; 58; 36; -45; 2; 3; 25; -9.
Ответы на вопрос
Ответил HappyCoder
0
PascalABC.Net
begin
var a := Arr(0, 15, 12, -9, -8, 58, 45, 36, -85, 57, 36, -45, 2, 3, 25, -9);
Println('Исходный массив', a);
Println('Отрицательных: ', a.Where(x -> x < 0).Count, ' | Сумма: ', a.Where(x -> x > 0).Sum);
end.
Ответил BobbyFresnel
0
Это возможности не PascalABC.NET, а самой .NET, точнее LINQ to Objects
Новые вопросы
Русский язык,
2 года назад
Другие предметы,
2 года назад
Алгебра,
7 лет назад
Математика,
7 лет назад
Математика,
9 лет назад