To
Tosha

Дан массив. Найти количество элементов, значение которых больше среднего арифметического минимального и максимального эл

В паскале. напишите программу. одмерные массивы.

АЖ
Александр Жоламанов

Ответ: 0.

Программа:

begin WriteLn(0); end.

Ибо условие "количество элементов, значение которых больше среднего арифметического, минимального и максимального... " можно упростить до "количество элементов, значение которых больше максимального... ", а больше максимального в массиве не может быть элемента!

АТ
Аннушка Темная

min := a[ 1 ]; max := a[ 1]; for i := 1 to size do if (a[ i ] < min) then min := a[ i ]; for i := 1 to size do if (a[ i ] > max) then max := a[ i ]; for i := 1 to size do if (a[ i ] > (min+max) div 2) then inc(c);

Похожие вопросы
Дан массив размера n Найти количество участков на которых его элементы монотанно возрастают
Нужно найти минимальный элемент среди максимальных!
найти среднее арифметическое элементов массива
Дан массив, состоящий из N элементов. Обнулить все элементы, кроме минимального и максимального
дан массив из 10 элементов найти минимальный элемент из элементов массива больших или равных 50
Дан массив вещественных чисел, найти среднее арифметическое элементов кратных 3.
Найти среднее арифметическое отрицательных элементов этого массива
Нужна помощь с паскалем. Дана матрица A(MxN). Определить среднее арифметическое от минимального и максимального элемента
найти в массиве А количество элементов больших, чем их среднее арифметическое на Бейсике
Найти минимальный и максимальный элементы матрицы. Поменять максимальный и минимальный и элементы местами...