Предмет: Информатика,
автор: anya297346
Сформировать целочисленный массив из 15 произвольных чисел. Подсчитать количество элементов исходного массива, значение которых менее его среднего арифметического
Ответы
Автор ответа:
0
PascalABC.NET 3.4.2, сборка 1881 от 19.11.2018
Внимание! Если программа не работает, обновите версию!
begin
var a := ArrRandom(15, -50, 50);
a.Println;
var avg := a.Average;
a.Where(t -> t < avg).Count.Println
end.
Пример
3 -12 -31 -35 -24 -31 33 -40 -36 -23 39 36 -24 33 -49
10
Автор ответа:
1
const n=15;
var a:array [1..n] of integer;
i,s,k:integer;
begin
for i:= 1 to n do
begin
a[i]:= Random(8)+1;
s:=s+a[i]
end;
writeln('Массив: ',a);
for i:= 1 to n do if a[i]<s/n then k:=k+1;
writeln('Количество элементов массива меньше среднего арифметического всех элементов массива равно: ',k)
end.
Похожие вопросы
Предмет: Математика,
автор: ivullaevaajdana7
Предмет: Русский язык,
автор: incirzayeva303
Предмет: Математика,
автор: gevorkyanmil567
Предмет: Биология,
автор: Saloo0
Предмет: Математика,
автор: lormik75