 evauvanova1998 
                                                02.10.2019 12:10
                                                
                                                evauvanova1998 
                                                02.10.2019 12:10
                                             Maks2222222222 
                                                02.10.2019 11:26
                                                
                                                Maks2222222222 
                                                02.10.2019 11:26
                                             nini8523 
                                                06.07.2019 20:30
                                                
                                                nini8523 
                                                06.07.2019 20:30
                                             victoria6178 
                                                06.07.2019 20:30
                                                
                                                victoria6178 
                                                06.07.2019 20:30
                                             лена363 
                                                06.07.2019 20:30
                                                
                                                лена363 
                                                06.07.2019 20:30
                                             NikitaBossTV 
                                                06.07.2019 20:30
                                                
                                                NikitaBossTV 
                                                06.07.2019 20:30
                                             никита3274 
                                                06.08.2019 13:50
                                                
                                                никита3274 
                                                06.08.2019 13:50
                                             амир295 
                                                13.02.2020 07:23
                                                
                                                амир295 
                                                13.02.2020 07:23
                                             nagimako 
                                                13.02.2020 07:17
                                                
                                                nagimako 
                                                13.02.2020 07:17
                                            
===== PascalABC.NET =====
begin
var n := ReadInteger('n =');
var a := ArrRandom(n, -99, 99);
a.Println;
var m := ReadInteger('M =');
a.FindAll(p -> p < m).Sum.Println
end.