Question

Помогите пожалуйста со вторым и третим в паскале.

Answer 1

//PascalABC.NET

2)
begin 
  arrrandom(20, 0, 15).Println.Where(x -> x.IsOdd).Count.Println;
end.
3)
begin 
  readarrinteger('Введите результаты подтягиваний 18 учеников:', 18).Min.Println();
end.