ПАСКАЛЬ
Найти сумму положительных и количество отрицательных элементов в одномерном массиве: 0; 15; 12; -9; -8; 58; 45; 36; -85; 58; 36; -45; 2; 3; 25; -9.
CookieMonster131
2
19.03.2020 11:56
0
Другие вопросы по теме Информатика
дибилон1
15.02.2021 21:06
amnat5247
19.05.2020 10:44
superserg2015
06.06.2019 13:10
Аленчік
06.06.2019 13:10
NancyKorea
06.06.2019 13:10
dstudencheskaya
06.06.2019 13:10
никита3491
06.06.2019 13:10
mitioglodima81
06.06.2019 13:10
Милка98806
06.06.2019 13:10
Популярные вопросы
- На выставку отобрали 80 лучших тетрадей пятая часть этих тетрадей...
3 - Андрей едет на велосипеде со скоростью 200 метров в минуту сергей...
3 - Фонетический разбор слова берегов будет ли там первая е ,делиться...
3 - Характеристика героев- солнца, ветра, месяца в сказке пушкина...
2 - Составить предложения; planes,dasha,has. are planes her nice?...
3 - Как от пять девятых отнять семь восемнадцатых...
3 - Существительное глаз заменить архаизмом...
3 - Составить уравнения реакций 1) гидрирование 2, 3 - диметилпентен...
1 - Равносторонний треугольник со стороной a, вращается вокруг одной...
1 - Нива,моя нива, нива золотая! зреешь ты на солнце, колос наливая...
2
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.