С Новым годом! Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 5.00/7: Рейтинг темы: голосов - 7, средняя оценка - 5.00
1 / 1 / 0
Регистрация: 21.10.2012
Сообщений: 35

Найти число m – среднее арифметическое всех элементов массива

17.11.2012, 21:22. Показов 1444. Ответов 2
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
2) Найти число m – среднее арифметическое всех элементов массива, значение которых меньше числа a, задаваемого пользователем. Определить количество элементов, значения которых меньше m.

Добавлено через 10 минут
помогите пожалуйста
0
Лучшие ответы (1)
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
17.11.2012, 21:22
Ответы с готовыми решениями:

Найти число m – среднее арифметическое всех элементов массива, значение которых меньше числа a
1) Составить программу, которая заполняет массив случайными целыми числами из диапазона, введенного пользователем (в диапазон могут входить...

Найти число m – среднее арифметическое всех элементов массива, значение которых меньше числа a
Здравствуйте. 1) Составить программу, которая заполняет массив случайными целыми числами из диапазона, введенного пользователем (в...

Найти среднее арифметическое всех элементов массива
Доброго времени суток! Помогите, пожалуйста, решить задачу. Вот условие: 1) Составить программу, которая заполняет массив случайными...

2
 Аватар для franc_gs
5 / 5 / 4
Регистрация: 17.11.2012
Сообщений: 17
18.11.2012, 00:19
Лучший ответ Сообщение было отмечено kventi5 как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
const n=25;
var ar:array[1..n] of integer;
    i,a,s,l:integer;
    m:real;
begin
 for i:=1 to n do
 ar[i]:=random(10)-random(20);
 
 for i:=1 to n do
 write(ar[i],' ');
 writeln;
 writeln('Введите a:');
 readln(a);
 
 for i:=1 to n do
 if ar[i]<a then
 begin
 s:=s+ar[i];
 l:=l+1;
 end;
 m:=s/l;
 
 l:=0;
 
 for i:=1 to n do
 if ar[i]<m then
 l:=l+1;
 
 writeln('Число m=',m:1:2);
 writeln('Kоличество элементов, значения которых меньше m равно ',l);
end.
0
1 / 1 / 0
Регистрация: 21.10.2012
Сообщений: 35
18.11.2012, 11:14  [ТС]
спасибо огромное
 Комментарий модератора 
Правило форума 5.6. Если какой-либо пост на форуме показался вам полезным, нажмите кнопку "Спасибо" внизу самого поста.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
18.11.2012, 11:14
Помогаю со студенческими работами здесь

Найти среднее арифметическое всех элементов массива
ввести с клавиатуры массив из 5 элементов найти среднее арифметическое всех элементов массива 4 15 3 10 14 напишите пожалуйста в паскале

Найти среднее арифметическое всех элементов массива
ввести с клавиатуры массив из 5 элементов найти среднее арифметическое всех элементов массива

Найти среднее арифметическое всех элементов массива
№1. Дан массив размера N и целые числа K и L (1 &lt; K &lt;= L &lt;= N). Найти среднее арифметическое всех элементов массива, кроме элементов с...

Найти среднее арифметическое всех положительных элементов массива
Найти среднее арифметическое всех положительных элементов массива. Проверить, имеют ли все элементы массива один знак. Проверить, содержит...

Найти среднее арифметическое всех положительных элементов массива
Дан целочисленный массив из 40 элементов , все элементы которого - целые числа в интервале от -500 до 500 . Опишите напишите на русском...


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

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Новые блоги и статьи
Учёным и волонтёрам проекта «Einstein@home» удалось обнаружить четыре гамма-лучевых пульсара в джете Млечного Пути
Programma_Boinc 01.01.2026
Учёным и волонтёрам проекта «Einstein@home» удалось обнаружить четыре гамма-лучевых пульсара в джете Млечного Пути Сочетание глобально распределённой вычислительной мощности и инновационных. . .
Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост.
Programma_Boinc 28.12.2025
Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Налог на собак: https:/ / **********/ gallery/ V06K53e Финансовый отчет в Excel: https:/ / **********/ gallery/ bKBkQFf Пост отсюда. . .
Кто-нибудь знает, где можно бесплатно получить настольный компьютер или ноутбук? США.
Programma_Boinc 26.12.2025
Нашел на реддите интересную статью под названием Anyone know where to get a free Desktop or Laptop? Ниже её машинный перевод. После долгих разбирательств я наконец-то вернула себе. . .
Thinkpad X220 Tablet — это лучший бюджетный ноутбук для учёбы, точка.
Programma_Boinc 23.12.2025
Рецензия / Мнение/ Перевод Нашел на реддите интересную статью под названием The Thinkpad X220 Tablet is the best budget school laptop period . Ниже её машинный перевод. Thinkpad X220 Tablet —. . .
PhpStorm 2025.3: WSL Terminal всегда стартует в ~
and_y87 14.12.2025
PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .
Как объединить две одинаковые БД Access с разными данными
VikBal 11.12.2025
Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.
Новый ноутбук
volvo 07.12.2025
Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro
Музыка, написанная Искусственным Интеллектом
volvo 04.12.2025
Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .
От async/await к виртуальным потокам в Python
IndentationError 23.11.2025
Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .
Поиск "дружественных имён" СОМ портов
Argus19 22.11.2025
Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru