Question

Помогите по Паскалю
Определить сумму элементов массива Р(n), значения которых> заданного Т
Все значения ввести с клавиатуры.

Answer 1

                                              PascalABC.NET

begin

 var T := ReadInteger('T =');

 var P := ReadArrInteger(ReadInteger('n =')).Where(x -> x > t).Sum.Println;

end.