Предмет: Информатика,
автор: yarilo2408
заполнить массив из 50 элементов случайными целыми числами из интервала от -37 до 49 посчитать среднее арифметическое M наибольших значений элементов массива M вводится пользователем
Ответы
Автор ответа:
0
// PascalABC.NET 3.3
begin
var a:=ArrRandom(50,-37,49); a.Println;
var m:=ReadInteger('m =');
writeln('S = ',a.SortedDescending.ToArray[0:m].Average);
end.
Пример:
23 14 -2 13 -15 -8 -32 10 -9 -12 -10 35 -13 12 -34 -25 -17 -13 4 39 38 46 -18 -6 -36 25 16 32 -24 -12 21 -19 9 47 -1 31 -30 -10 -29 16 -15 39 -1 -17 22 -27 -18 23 20 -11
m = 5
S = 41.8
begin
var a:=ArrRandom(50,-37,49); a.Println;
var m:=ReadInteger('m =');
writeln('S = ',a.SortedDescending.ToArray[0:m].Average);
end.
Пример:
23 14 -2 13 -15 -8 -32 10 -9 -12 -10 35 -13 12 -34 -25 -17 -13 4 39 38 46 -18 -6 -36 25 16 32 -24 -12 21 -19 9 47 -1 31 -30 -10 -29 16 -15 39 -1 -17 22 -27 -18 23 20 -11
m = 5
S = 41.8
Похожие вопросы
Предмет: Математика,
автор: zotovaYaroslava
Предмет: Қазақ тiлi,
автор: abdurahmanbaky82
Предмет: Математика,
автор: Аноним
Предмет: История,
автор: Molia23