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

1. Решение в современном стиле// PascalABC.NET 3.3, сборка 1583 от 25.11.2017// Внимание! Если программа не работает, обновите версию!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 -711.6252. Решение в стиле "Так обычно учат в школах"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.