Question

Нужно до понедельника, буду очень благодарен

Answer 1

// PascalABC.NET 3.3
1.begin
  var a:=ArrRandom(10,-20,20); a.Println;
  writeln('Количество положительных = ',a.Where(x->x>0).Count);
end.

Пример:
18 -15 -4 -18 18 -3 -17 8 8 6
Количество положительных = 5

2.
begin
  var a:=ArrRandom(10,-20,20); a.Println;
  writeln('Среднее арифметическое отрицательных = ',a.Where(x->x<0).Average);
end.

Пример:
-11 -20 7 0 10 -10 11 -10 -10 12
Среднее арифметическое отрицательных = -12.2

3.
begin
  var a:=ArrRandom(30,0,100); a.Println;
  var sr:=a.Average;
  writeln('Среднее арифметическое = ',sr);
  writeln('Искомое количество = ',a.Where(x->x>sr).Count);
end.

Пример:
18 41 37 86 29 11 81 60 50 72 76 23 9 98 30 34 64 44 72 9 39 8 50 66 6 89 75 35 97 100
Среднее арифметическое = 50.3
Искомое количество = 13