Составить программу:
1. В массиве из 40 случайных чисел из диапазона [-15;15]посчитать количество единиц;
определить каких чисел больше - положительных или отрицательных чисел и на сколько.
1. В массиве из 40 случайных чисел из диапазона [-15;15]посчитать количество единиц;
определить каких чисел больше - положительных или отрицательных чисел и на сколько.
More Questions From This User See All
Answers & Comments
##
var a := ArrRandom(40, -15, 15);
a.Println;
a.Count(p -> p = 1).Println; // количество единиц
var d := a.Count(p -> p > 0) - a.Count(p -> p < 0);
case Sign(d) of
-1: Print('Отрицательных больше на', -d);
0: Print('Отрицательных и положительных поровну');
1: Print('Положительных больше на', d)
end