
Мина
4 год назад
Заполнить массив на 200 элементов псевдослучайными числами от 20 до 80:1)Найти среднее арифметическое всех элементов.2)Найти среднее арифметическое всех элементов меньше пятидесяти3)Заменить наименьшие значения в массиве нулямиВывести полученный массив.
ОТВЕТЫ

Wilson Derek
Oct 24, 2020
begin
var a:=ArrRandom(200,20,80); a.Println;
Writeln('Ср.арифм: ',a.Average:0:3);
Writeln('Ср.арифм. элементов, меньших 50: ',a.Where(x->x<50).Average:0:3);
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
703
Смежные вопросы: