Предмет: Информатика,
автор: mkri72
Помогите пожалуйста по информатике, Pascal
Приложения:

Ответы
Автор ответа:
0
===== PascalABC.NET =====
begin
var b := ReadInteger('b =');
var a := ReadArrInteger('Введи массив:', 10);
a.Where(p -> p > b).Sum.Println
end.
---------------------------------------
begin
var a := ArrRandom(10, -99,99);
a.Println;
Println('Количество нечентых:', a.Count(p -> p.IsOdd));
Println('Min =', a.Min)
end.
Интересные вопросы
Предмет: Английский язык,
автор: khasanovatamanno2010
Предмет: Математика,
автор: esd7033
Предмет: Английский язык,
автор: zhanekaa81
Предмет: Математика,
автор: твьдвд