Предмет: Информатика,
автор: Артём65
Дана вещественная таблица А(10). Найдите количество элементов таблицы, больших среднего арифметического всех ее элементов. (Паскаль)
Ответы
Автор ответа:
0
// 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
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
Похожие вопросы
Предмет: Химия,
автор: auasusuah
Предмет: Русский язык,
автор: LonelyPussycat
Предмет: Английский язык,
автор: malinamalinka453
Предмет: Математика,
автор: marinka3001
Предмет: Химия,
автор: sasha1310