Question

Написать программу Pascal
Написать программу, которая в заданном с клавиатуры массиве из 7 целых чисел
находит сумму элементов, меньших 4.

Answer 1

Ответ:

для версий PascalABC.NET 3.5.1.2290 + .NET Framework 4.7.1 и выше

begin

var A := ReadArrInteger(7);

A.Where(p -> p < 4).Sum.Println;

end.