Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.73/11: Рейтинг темы: голосов - 11, средняя оценка - 4.73
0 / 0 / 0
Регистрация: 23.07.2015
Сообщений: 9

Количество элементов одномерного массива меньших, чем среднее арифметическое значение всех элементов массива

23.07.2015, 15:22. Показов 2142. Ответов 3
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Нужно написать программу и блок-схему к ней.
Алгоритм поиска количества элементов одномерного
массива меньших, чем среднее арифметическое значение
всех элементов массива.
0
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
23.07.2015, 15:22
Ответы с готовыми решениями:

Алгоритм поиска количества элементов одномерного массива больших, чем среднее арифметическое значение всех
7. Алгоритм поиска количества элементов одномерного мас- сива больших, чем среднее арифметическое значение всех элементов массива.

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

Найти количество элементов массива меньших, чем среднее арифметическое первых 10 элементов
Найти количество элементов массива целых чисел A(25), меньших, чем среднее арифметическое первых 10 элементов массива

3
 Аватар для APALoff
1648 / 1077 / 1081
Регистрация: 03.07.2013
Сообщений: 4,507
23.07.2015, 16:27
Pascal
1
2
3
4
5
6
Sr:=0;
For i:=1 to MaxM do Sr:=Sr+M[i];
Sr:=Sr/MaxM;
N:=0;
For i:=1 to MaxM do If M[i]<Sr then Inc(N);
Writeln(N);
0
0 / 0 / 0
Регистрация: 23.07.2015
Сообщений: 9
23.07.2015, 16:48  [ТС]
Можно полностью программу и блок-схему?
0
12 / 12 / 10
Регистрация: 24.06.2015
Сообщений: 83
24.07.2015, 01:59
procent, посмотрите в подпись APALoff.

Добавлено через 8 минут
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
const MaxM = 10;
var M: array[1..MaxM] of integer;
    i, N: integer;    
    sr: real;
begin
for i:=1 to MaxM do begin
read(M[i]);
end;
Sr:=0;
For i:=1 to MaxM do Sr:=Sr+M[i];
Sr:=Sr/MaxM;
N:=0;
For i:=1 to MaxM do If M[i]<Sr then Inc(N);
Writeln(N);
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
24.07.2015, 01:59
Помогаю со студенческими работами здесь

Найти количество элементов больше чем среднее арифметическое всех элементов массива
6. Написать программу для обработки массива с К действительных чисел. Найти количество элементов больше чем среднее арифметическое всех...

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

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

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

Вычислить среднее арифметическое значение элементов одномерного массива
Вычислить среднее арифметическое значение тех элементов одномерного массива, которые расположены за первым по порядку минимальным элементом.


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Новые блоги и статьи
SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров
8Observer8 12.02.2026
Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .
SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image)
8Observer8 11.02.2026
Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .
SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image
8Observer8 10.02.2026
Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .
Установка Qt-версии Lazarus IDE в Debian Trixie Xfce
volvo 10.02.2026
В общем, достали меня глюки IDE Лазаруса, собранной с использованием набора виджетов Gtk2 (конкретно: если набирать текст в редакторе и вызвать подсказку через Ctrl+Space, то после закрытия окошка. . .
SDL3 для Web (WebAssembly): Работа со звуком через SDL3_mixer
8Observer8 08.02.2026
Содержание блога Пошагово создадим проект для загрузки звукового файла и воспроизведения звука с помощью библиотеки SDL3_mixer. Звук будет воспроизводиться по клику мышки по холсту на Desktop и по. . .
SDL3 для Web (WebAssembly): Основы отладки веб-приложений на SDL3 по USB и Wi-Fi, запущенных в браузере мобильных устройств
8Observer8 07.02.2026
Содержание блога Браузер Chrome имеет средства для отладки мобильных веб-приложений по USB. В этой пошаговой инструкции ограничимся работой с консолью. Вывод в консоль - это часть процесса. . .
SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве
8Observer8 02.02.2026
Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .
Философия технологии
iceja 01.02.2026
На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru