3. begin var a:=ArrRandom(30,0,100); a.Println; var sr:=a.Average; writeln('Среднее арифметическое = ',sr); writeln('Искомое количество = ',a.Where(x->x>sr).Count); end.
petyaGavrikov
Я не могу догадываться - что Вы изучали и на каком языке программирования пишете программы. Версию языка Вы также не указали. В таких случаях отвечающий выбирает язык и версию на своё усмотрение.
Answers & Comments
Verified answer
// PascalABC.NET 3.31.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
writeln('Количество положительных = ',a.Where(x->x>0).Count);