begin
var a:=ArrRandom(15,-10,30); a.Println;
Writeln(a.Where(t->t>0).Average)
end.
Объяснение:
работает на новых версиях паскаля
