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

Question

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

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

Answer 1

// PascalABC.NET 3.2, сборка 1325 от 19.10.2016
begin
  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.2016
begin
  var a:=ArrRandomReal(ReadInteger('Кол-во элементов: '),2,3);
  a.Println;
  Writeln('Среднее значение равно ',a.Average)
end.

Пример
Кол-во элементов:  6
2.72211762318486 2.85016930887949 2.41644970626405 2.11135463933989 2.8477212129383 2.67084380549884
Среднее значение равно 2.60310938268424

Answer 2

1)
const n=10;
var a:array[1..n] of real;
i:integer; s:real;
begin
Randomize;
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.64
s = 12.11

2)
const n=10;
var a:array[1..n] of real;
i:integer; s:real;
begin
Randomize;
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

Comments

Спасибо огромное

---

Пожалуйста.