// PascalABC.NET 3.2, сборка 1379 от 21.01.2017
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(200,20,80); a.Println;
Writeln('Ср.арифм: ',a.Average:0:3);
Writeln('Ср.арифм. элементов, меньших 50: ',a.Where(x->x<50).Average:0:3);<br> var m:=a.Min;
a.Replace(m,0);
a.Println
end.
Пример
55 24 28 58 53 69 59 34 39 31 43 37 54 67 53 55 69 39 55 79 24 49 38 51 35 45 51 72 71 55 20 29 67 37 48 33 66 55 54 77 58 58 30 38 20 52 48 39 47 77 75 24 55 63 77 25 67 58 42 28 38 68 43 64 31 34 50 36 39 39 70 34 65 58 41 46 39 80 50 64 78 31 45 75 61 76 55 24 41 42 47 28 32 46 59 71 35 46 26 67 21 31 80 27 27 61 39 77 42 50 66 68 27 59 30 26 42 49 23 35 60 46 76 78 73 61 21 38 80 50 31 74 73 63 62 67 32 37 68 20 57 58 62 72 56 59 20 54 35 53 48 66 43 71 27 55 36 22 35 46 60 20 78 72 39 73 75 45 77 44 75 25 61 23 59 21 64 24 41 33 61 47 23 46 22 45 51 22 55 26 51 29 22 42 41 56 60 71 52 64
Ср.арифм: 48.965
Ср.арифм. элементов, меньших 50: 34.386
55 24 28 58 53 69 59 34 39 31 43 37 54 67 53 55 69 39 55 79 24 49 38 51 35 45 51 72 71 55 0 29 67 37 48 33 66 55 54 77 58 58 30 38 0 52 48 39 47 77 75 24 55 63 77 25 67 58 42 28 38 68 43 64 31 34 50 36 39 39 70 34 65 58 41 46 39 80 50 64 78 31 45 75 61 76 55 24 41 42 47 28 32 46 59 71 35 46 26 67 21 31 80 27 27 61 39 77 42 50 66 68 27 59 30 26 42 49 23 35 60 46 76 78 73 61 21 38 80 50 31 74 73 63 62 67 32 37 68 0 57 58 62 72 56 59 0 54 35 53 48 66 43 71 27 55 36 22 35 46 60 0 78 72 39 73 75 45 77 44 75 25 61 23 59 21 64 24 41 33 61 47 23 46 22 45 51 22 55 26 51 29 22 42 41 56 60 71 52 64