В заданном массиве вещественных чисел определить количество элементов меньших среднего арифметического значения.
10-11 класс
|
CONST N=5;
var
x:real;
i:integer;
ar:array[1..N] of real;
begin
for i:=1 to N do begin
readln(ar[i]);
x:=x+ar[i];
end;
x:=x/i;
for i:=1 to N do if (ar[i] < x) then write(ar[i],' ');
end.
Другие вопросы из категории
часть, значения арифметического квадратного корня, остаток от деления на 5, символ по целой части числа.
uses crt;
type mas=array[1..10] of integer;
Var a,b:mas;
procedure Vvod(Var a:mas);
Var i:integer;
Begin
for i:=1 to 10 do readln(a[i]);
end;
быстро, затратив 5 с, и еще 2 с потратил на перекладывание в банку. Но чем меньше становилось в воде рыбок, тем труднее было их поймать. На каждую следующую рыбу он затрачивал больше на 5%, чем на предыдущую. Сколько минут времени он затратит на переселение рыбок? Построить и исследовать модель в Ms Excel.
Читайте также
чисел найти количество элементов равных 3. 3)В массиве из 8 целых найти номер массива с наибольшим значением. 4)В массиве из 12 целых чисел найти количество и сумму элементов, расположенных до максимального элемента. 5)Для массива из 15 вещественных подсчитать количество элементов массива меньших суммы первого и последнего элементов массива.
числа 7 и меньше 10. Вывести количество элементов массива и среднее арифметическое значение этих элементов, которых больше заданного числа 7 и меньше 10 на монитор
превышающих среднее арифметическое значение элементов массива