Сформировать массив из 15 целых чисел, выбранных случайным образом из интервала [-10,30]. Найти среднее арифметическое положительных элементов.

begin
  var a:=ArrRandom(15,-10,30); a.Println;
  Writeln(a.Where(t->t>0).Average)
end.


9 -6 -9 11 -8 27 -8 -2 4 11 3 24 4 -5 -7
11.625



const
  n=15;

var
  a:array[1..n] of integer;
  i,s:integer;

begin
  Randomize;
  s:=0;
  for i:=1 to n do begin
    a[i]:=Random(41)-10;
    Write(a[i],' ');
    s:=s+a[i]
    end;
  Writeln;
  Writeln(s/n)
end.