Помогите пожалуйста 1)Заполните массив случайными вещественными числами разных знаков. Вычислите сумму положительных элементов массива.

2) заполняем массив случайными вещественными числами из [2;3). Вычислите среднее значение всех элементов

Пожалуйста.

1)const n=10;var a:array[1..n] of real;i:integer; s:real;beginRandomize;for i:=1 to n do begin a[i]:=10*random-5; write(a[i]:6:2); end;writeln;s:=0;for i:=1 to n do if a[i]>0 then s:=s+a[i];writeln('s = ',s:5:2);end.Пример:  1.17  3.93 -4.82 -0.13 -2.56  2.28 -2.92  4.73 -1.67 -0.64s = 12.112)const n=10;var a:array[1..n] of real;i:integer; s:real;beginRandomize;for i:=1 to n do begin a[i]:=random+2; write(a[i]:6:2); end;writeln;s:=0;for i:=1 to n do s:=s+a[i];writeln('Среднее = ',s/n:5:2);end.Пример:  2.13  2.45  2.68  2.32  2.59  2.36  2.36  2.21  2.51  2.83Среднее =  2.44

// PascalABC.NET 3.2, сборка 1325 от 19.10.2016begin  var a:=ArrRandomReal(ReadInteger('Кол-во элементов: '),-10,10);  a.Println;  Writeln('Сумма положительных равна ',a.Where(x->x>0).Sum)end.ПримерКол-во элементов:  8-0.904254126783579 -6.85698384272725 -8.54558298296555 0.520270080547906 -6.12226872524352 -5.76991352987006 -8.2311904142756 -5.47438762871287Сумма положительных равна 0.520270080547906// PascalABC.NET 3.2, сборка 1325 от 19.10.2016begin  var a:=ArrRandomReal(ReadInteger('Кол-во элементов: '),2,3);  a.Println;  Writeln('Среднее значение равно ',a.Average)end.ПримерКол-во элементов:  62.72211762318486 2.85016930887949 2.41644970626405 2.11135463933989 2.8477212129383 2.67084380549884Среднее значение равно 2.60310938268424