Дана вещественная таблица А(10). Найдите количество элементов таблицы, больших среднего арифметического всех ее элементов. (Паскаль)
Дана вещественная таблица А(10). Найдите количество элементов таблицы, больших среднего арифметического всех ее элементов. (Паскаль)
Гость
Ответ(ы) на вопрос:
Гость// PascalABC.NET 3.1, сборка 1174 от 22.02.2016
begin
var a:=ArrRandomReal(10,0,9); a.Println;
var c:=a.Average;
Writeln('Кол-во элементов, больших ср.арифм. равно ',
a.Where(x->x>c).Count)
end.
Тестовое решение:
2.59730962412307 5.74823168187786 0.183425193737925 1.40910695977933 1.53072231054805 1.10500636608573 2.72817251073577 5.34373824686917 8.61965516750685 6.63805930904954
Кол-во элементов, больших ср.арифм. равно 4
Не нашли ответ?
Похожие вопросы