Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.75/4: Рейтинг темы: голосов - 4, средняя оценка - 4.75
0 / 0 / 0
Регистрация: 27.11.2020
Сообщений: 6

Увеличить элементы массива, большие среднего арифметического, на среднее арифметическое

09.12.2020, 21:30. Показов 810. Ответов 2
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Дан одномерный массив из № элементов (можно выбрать самостоятельно определить его размер в разделе ‘010. Заполнить его, вывести на экран, заменить элементы, которые больше среднего арифметического всех элементов этого массива на сумму элемент + среднее арифметическое и вывести на экран измененный массив.
0
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
09.12.2020, 21:30
Ответы с готовыми решениями:

Вывести на экран элементы одномерного массива, большие среднего арифметического
Вывести на экран элементы одномерного массива, большие среднего арифметического.

Заполнить все элементы большие 5 значением среднего арифметического элементов массива
заполните все элементы, которые больше 5, значением среднего арифметического всех элементов массива

Элементы массива, большие среднего арифметического перенести в начало
Помогите. У меня не делиться массив. Задание прилогается. Задание: Разделить массив на две части, поместив в первую элементы, большие...

2
2 / 1 / 1
Регистрация: 11.02.2020
Сообщений: 25
10.12.2020, 00:52
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
32
33
34
35
36
37
38
39
program shestoi;
 
uses
crt;
const
   n = 5;
type
   mas = array[1..n] of real;
var
   a: mas;
   i: byte;
   SA:real;
begin
   SA:=0;
   i:=0;
   Randomize;
 
   writeln('Генерируем массив');
   for i:=1 to n do
   begin
 a[i]:=Random(20);
 writeln(a[i]:0:2);
 SA:=SA+a[i];
   end;
 
   SA:=SA/n;
 
     writeln('============================');
     writeln('Среднее арифметическое = ',SA:0:2);
     writeln('============================');
 
 
 
     for i:=1 to n do
   begin
 if  a[i] > SA then a[i]:=a[i]+SA;
  writeln(a[i]:0:2);
 
   end;
0
Модератор
10411 / 5698 / 3401
Регистрация: 17.08.2012
Сообщений: 17,351
16.12.2020, 07:32
Лишние строки: 1, 3, 4, 15.

Массив из вещественных чисел логичнее заполнять вещественными числами. Вот так, например:
Pascal
21
  a[i] := 20 * кandom;
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
16.12.2020, 07:32
Помогаю со студенческими работами здесь

Удалить из массива все элементы большие среднего арифметического значения
2) ОДНОМЕРНЫЙ МАССИВ: Задан массив Х(n) целых чисел. Удалить из массива все элементы, большие среднего арифметического значения. Определить...

Функция обнуляющая все элементы массива большие среднего арифметического
Написать функцию, которая в массиве вещественных чисел обнуляет все элементы, которые больше среднего арифметического значения элементов...

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

Выбрать элементы массива, большие среднего арифметического, и упорядочить получившийся массив по убыванию
Дан массив x1, x2,..., x20. Выбрать элементы большие среднего арифметического и упорядочить получившийся массив по убыванию. Использовать...

Выбрать элементы массива, большие среднего арифметического, и упорядочить получившийся массив по убыванию
Дан массив x1, x2,..., x20. Выбрать элементы большие среднего арифметического и упорядочить получившийся массив по убыванию. Использовать...


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

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Новые блоги и статьи
Воспроизведение звукового файла с помощью SDL3_mixer при касании экрана Android
8Observer8 26.01.2026
Содержание блога SDL3_mixer - это библиотека я для воспроизведения аудио. В отличие от инструкции по добавлению текста код по проигрыванию звука уже содержится в шаблоне примера. Нужно только. . .
Установка Android SDK, NDK, JDK, CMake и т.д.
8Observer8 25.01.2026
Содержание блога Перейдите по ссылке: https:/ / developer. android. com/ studio и в самом низу страницы кликните по архиву "commandlinetools-win-xxxxxx_latest. zip" Извлеките архив и вы увидите. . .
Вывод текста со шрифтом TTF на Android с помощью библиотеки SDL3_ttf
8Observer8 25.01.2026
Содержание блога Если у вас не установлены Android SDK, NDK, JDK, и т. д. то сделайте это по следующей инструкции: Установка Android SDK, NDK, JDK, CMake и т. д. Сборка примера Скачайте. . .
Использование SDL3-callbacks вместо функции main() на Android, Desktop и WebAssembly
8Observer8 24.01.2026
Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .
моя боль
iceja 24.01.2026
Выложила интерполяцию кубическими сплайнами www. iceja. net REST сервисы временно не работают, только через Web. Написала за 56 рабочих часов этот сайт с нуля. При помощи perplexity. ai PRO , при. . .
Модель сукцессии микоризы
anaschu 24.01.2026
Решили писать научную статью с неким РОманом
http://iceja.net/ математические сервисы
iceja 20.01.2026
Обновила свой сайт http:/ / iceja. net/ , приделала Fast Fourier Transform экстраполяцию сигналов. Однако предсказывает далеко не каждый сигнал (см ограничения http:/ / iceja. net/ fourier/ docs ). Также. . .
http://iceja.net/ сервер решения полиномов
iceja 18.01.2026
Выкатила http:/ / iceja. net/ сервер решения полиномов (находит действительные корни полиномов методом Штурма). На сайте документация по API, но скажу прямо VPS слабенький и 200 000 полиномов. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru