Question

Сформировать целочисленный массив из 15 произвольных чисел. Подсчитать количество элементов исходного массива, значение которых менее его среднего арифметического

Answer 1

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

Answer 2

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.