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

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

05.03.2021, 20:36. Показов 1285. Ответов 7
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Найти среднее арифметическое всех элементов массива A.
0
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
05.03.2021, 20:36
Ответы с готовыми решениями:

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

Найти среднее арифметическое всех элементов массива
Дан одномерный массив. 1)Найти среднее арифметическое всех элементов массива. 2)Найти среднее кратных трем элементов массива.

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

7
Эксперт Pascal/Delphi
6812 / 4568 / 4820
Регистрация: 05.06.2014
Сообщений: 22,433
06.03.2021, 07:41
Найти среднее арифметическое всех элементов массива
0
5 / 3 / 2
Регистрация: 11.05.2020
Сообщений: 47
08.03.2021, 05:28
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
const
  n = 10; //количество элементов в массиве
var 
  a:array[1..100] of integer;
  sum:real;
  i:integer;
begin
  for i:=1 to n do //генерируем массив
    a[i]:=Random(100);
  for i:=1 to n do //выводим массив
    write(a[i],' ');
  for i:=1 to n do begin //считаем сумму всех элементов
    sum+=a[i];
  end;
  writeln();
  write(sum/n); //считаем и выводим среднее арифметическое
end.
0
 Аватар для JuriiMW
5095 / 2661 / 2355
Регистрация: 10.12.2014
Сообщений: 10,060
08.03.2021, 07:56
AtomJ2, если
Pascal
1
2
const
  n = 10; //количество элементов в массиве
то зачем
Pascal
4
a:array[1..100] of integer;
Зачем лишние операторные скобки?
Pascal
12
13
14
  for i:=1 to n do begin //считаем сумму всех элементов
    sum+=a[i];
  end;
0
 Аватар для agvego5
48 / 39 / 10
Регистрация: 18.09.2023
Сообщений: 256
14.09.2024, 19:46
Pascal
1
2
3
4
##
var A:=ArrRandom;//массив A размера n=10 по умолчанию
A.Println;//вывод массива A просто посмотреть
A.Average.Print;//среднее арифметическое всех элементов массива A
0
 Аватар для JuriiMW
5095 / 2661 / 2355
Регистрация: 10.12.2014
Сообщений: 10,060
15.09.2024, 09:20
agvego5, если что, в начале 2021 года ещё не было возможности записи программы без внешнего begin-end
0
 Аватар для agvego5
48 / 39 / 10
Регистрация: 18.09.2023
Сообщений: 256
15.09.2024, 09:33
Цитата Сообщение от JuriiMW Посмотреть сообщение
не было возможности записи программы без внешнего begin-end
а это что?
Задача «Желание»
0
 Аватар для Sun Serega
2355 / 1458 / 526
Регистрация: 07.04.2017
Сообщений: 4,798
15.09.2024, 09:37
Первый комит добавляющий ## появился в репозитории 04.07.2020. Я думаю в течении ближайшей недели он точно попал в первый релиз.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
15.09.2024, 09:37
Помогаю со студенческими работами здесь

Найти среднее арифметическое всех нечетных элементов целочисленного массива
Найти среднее арифметическое всех нечетных элементов целочисленного массива (предусмотрите ситуацию, когда в массиве все элементы четные).

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

Найти среднее арифметическое всех положительных элементов матрицы
Задана квадратная матрица А размером N*M(N<=10), состоящая из целочисленных элементов найти среднее арифметическое всех положительных...

Найти среднее арифметическое всех положительных элементов матрицы
Найти среднее арифметическое всех положительных элементов матрицы Аnxn

Задана таблица a 10 на 20, найти её среднее арифметическое всех её элементов
Всем привет. Задана таблица a 10 на 20, найти её среднее арифметическое всех её элементов. Спасибо)


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

Или воспользуйтесь поиском по форуму:
8
Ответ Создать тему
Новые блоги и статьи
SDL3 для Desktop (MinGW): Рисуем цветные прямоугольники с помощью рисовальщика SDL3 на Си и C++
8Observer8 17.03.2026
Содержание блога Финальные проекты на Си и на C++: finish-rectangles-sdl3-c. zip finish-rectangles-sdl3-cpp. zip
Символические и жёсткие ссылки в Linux.
algri14 15.03.2026
Существует два типа ссылок — символические и жёсткие. Ссылка в Linux — это запись в каталоге, которая может указывать либо на inode «файла-ИСТОЧНИКА», тогда это будет «жёсткая ссылка» (hard link),. . .
[Owen Logic] Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора
ФедосеевПавел 14.03.2026
Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ВВЕДЕНИЕ Выполняя задание на управление насосной группой заполнения резервуара,. . .
делаю науч статью по влиянию грибов на сукцессию
anaschu 13.03.2026
прикрепляю статью
SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++
8Observer8 10.03.2026
Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:
Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE
8Observer8 10.03.2026
Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .
Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки
Neotwalker 08.03.2026
Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .
Модульная разработка через nuget packages
DevAlt 07.03.2026
Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru