15.В заданном массиве вещественных чисел определить количество элементов меньших среднего арифметического значения.
10-11 класс
|
uses crt;
const N=30;
var a:array [1..N] of integer;
i,sum,k:integer;
sr:real;
begin
for i:=1 to N do
begin
readln(a[i]);
sum:=sum+a[i];
end;
sr:=sum/N;
for i:=1 to N do
if a[i]<sr then inc(k);
writeln(k);
end.
Другие вопросы из категории
спамить. Заранее спасибо.
количество положительных k1 и k2 – отрицательных элементов. Если k1>k2, распечатать
положительные элементы матрицы, в ином случае – положительные элементы матрицы.
Срочно!
Читайте также
чисел найти количество элементов равных 3. 3)В массиве из 8 целых найти номер массива с наибольшим значением. 4)В массиве из 12 целых чисел найти количество и сумму элементов, расположенных до максимального элемента. 5)Для массива из 15 вещественных подсчитать количество элементов массива меньших суммы первого и последнего элементов массива.
числа 7 и меньше 10. Вывести количество элементов массива и среднее арифметическое значение этих элементов, которых больше заданного числа 7 и меньше 10 на монитор
превышающих среднее арифметическое значение элементов массива
Задание 1
В одномерном массиве случайных вещественных числе F(17) определить количество положительных элементов и их сумму.
Задание 2
В матрице L(5,5) случайных вещественных чисел определить максимальный элемент выше побочной диагонали, поменять его местами с элементом 2 строки 2 столбца.
Большая просьба расписать задачу подробно , хочу не просто списать решения , а понять его и научиться решать сам , огромное спасибо.