--- PascalABC.NET 3.6.2 ---
begin
var A := ArrRandom(15, -15, 23);
A.Where(p -> p > 0).Sum.Println;
end.
--- Описание использованных методов ---
ArrRandom(n, a, b) -> Возвращает Array of Integer длиной n, заполненный случайными значениями из диапазона [a, b];
.Where(predicate: T -> boolean) - Расширение Array of T (Может быть вызвано для Array of T независимо от типа T), выполняющее фильтрацию массива заданной логической функцией (предикатом). Возвращает Sequence of T.
.Sum - Суммирует элементы итерируемого объекта, для которого вызвано.
.Println - Выводит в консоль значение или строковое представление объекта, для которого вызвано.
1. Shift;
2. Num Lock;
3. Alt;
4. Caps Lock.
Объяснение:
1. клавиша Shift в нажатом состоянии присваивает остальным клавишам другое значение. Если её удерживают нажатой, то при нажатии на буквенные клавиши получают прописные буквы, если включён режим строчных букв, и получают напротив строчные буквы, если включён режим прописных букв;
2. клавиша Num Lock в нажатом положении позволяет использовать цифровую клавиатуру для ввода числовых данных;
3. клавиша Alt, нажатая совместно с другими клавишами, присваивает им другое — альтернативное — значение;
4. клавиша Caps Lock работает как переключатель: когда она включена, то все введённые буквы будут прописными, когда выключена — строчные.
Егер де біз XX 60 жылдарында өмір сүрсек бізді қызықты жағдайлар күтіп тұратын еді.Сол уақытта заман одан сайын дамып көркейеді деп ойлаймын.Ол кезде мен біздің қиын сабақтарымызды роботтар істепберет,қазіргі телефондар одан сайын керемет болғанын,короновирус ауруы кетіп,ешқашан келмеуін қалаймын.Яғни тамаша, дамыған заман болады деп ойлаймын.