Предмет: Информатика,
автор: Kektus1703
Заполнить массив на 200 элементов псевдослучайными числами от 20 до 80:
1)Найти среднее арифметическое всех элементов.
2)Найти среднее арифметическое всех элементов меньше пятидесяти
3)Заменить наименьшие значения в массиве нулями
Вывести полученный массив.
Ответы
Автор ответа:
0
// 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);
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
// Внимание! Если программа не работает, обновите версию!
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
Похожие вопросы
Предмет: Алгебра,
автор: viktoriaandrienko481
Предмет: Геометрия,
автор: s0314254
Предмет: Музыка,
автор: serafimad
Предмет: Математика,
автор: madiis14
Предмет: Математика,
автор: rydasha50