Question

Составить программу:
1. В массиве из 40 случайных чисел из диапазона [-15;15]посчитать количество единиц;
определить каких чисел больше - положительных или отрицательных чисел и на сколько.

Answer 1

##

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