Предмет: Информатика, автор: mkri72

Помогите пожалуйста по информатике, Pascal

Приложения:

Ответы

Автор ответа: BobbyFresnel
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
Предмет: Математика, автор: твьдвд