// PascalABC.NET 3.3
begin
var a:=ArrRandom(30,-1000,1000); a.Println;
writeln(Среднее арифметическое = ,a.Where(x->x>a[a.Length-1]).Average);
end.
Пример:
64 682 811 -812 934 -16 -852 -903 584 -248 797 -554 -466 -671 320 739 -575 -662 -882 -927 784 419 929 258 358 -73 -418 674 -196 389
Среднее арифметическое = 735.3
Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.