В массиве, состоящем из 10-ти целых чисел, найти количество элементов, больше среднего арифметического элементов этого массива.
10-11 класс
|
Var a:array[1..10] of real; i,j,m:integer; n:real;
begin
n:=0;
m:=0;
for i:=1 to 10 do
begin
readln(a[i]);
n:=n+a[i];
end;
n:=n/10;
for j:=1 to 10 do
begin
if (a[j]>n) then m:=m+1;
end;
writeln(m);
end.
Другие вопросы из категории
21₁₀ = 111 в х системе счисления
найти х
Читайте также
чисел найти количество элементов равных 3. 3)В массиве из 8 целых найти номер массива с наибольшим значением. 4)В массиве из 12 целых чисел найти количество и сумму элементов, расположенных до максимального элемента. 5)Для массива из 15 вещественных подсчитать количество элементов массива меньших суммы первого и последнего элементов массива.
помогите ,котаны:3
нужна программа в паскале
простые операции с матрицами: транспонирование, умножение на число, сложение и перемножение двух матриц. Значения матриц задавать случайным образом, выбор операции предоставлять пользователю.
произвольных массивах, состоящих из 1 числа, из 5 чисел, из 10 чисел.