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

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);<br>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

Comments

Спасибо большое, но можно на уровне 10 класса, мы команды println и arrrandom не изучали

---

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

---

вот это я вообще не понял

---

Я не могу догадываться - что Вы изучали и на каком языке программирования пишете программы. Версию языка Вы также не указали. В таких случаях отвечающий выбирает язык и версию на своё усмотрение.