Массив заполним случайными целыми от 0 до 20
//PascalABC.NET (версия 3.1, сборка 1198 от 11.03.2016)
begin
var a:=arrrandom(15,0,20);
println(a);
var s:=0;
for var i:= 0 to 14 do
if (a[i]>10) and (a[i]<15) then s +=1;<br> println('таких чисел ',s);
end.