В Паскале. Создать массив В из десяти целых чисел. Вывести полученный массив на экран. Подсчитать сумму положительных и количество отрицательных элементов массива

Ответы

Ответ дал: KnowsUser1

Ответ:

PascalABC.NET

begin

var B := ArrRandom(10, -99, 99);

B.Println;

B.Where(k -> k > 0).Sum.Println;

B.Where(k -> k <0).Count.Println;

end.

Объяснение:

BobbyFresnel: Лайфхак. Пишем var s := B.Where(k -> k > 0); Это последовательность, она нигде не хранится и не занимает ни памяти, ни времени на выполнение. А дальше Println(s.Sum, s.Count);

BobbyFresnel: Т.е. последовательность - это автоматически сгенерированная внутреняя функция, которая при обращении к ней выдает очередной элемент.

BobbyFresnel: Поэтому SeqRandomInteger(5, 10, 20),Println.Println; - это бомба.

Вас заинтересует

Українська мова

1 год назад

Допоможіть будь ласка даю 40 балів

Українська мова

1 год назад

Неозначені займенники утворюються за допомогою часток аби-, де-, казна-, хтозна-, - небудь, - будь, -сь вiд

Українська література

1 год назад

про кого йдеться в уривку: Іздавна був дряпічка…;шатнувся зараз із запічка,півкопи для його кусок!