Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 11.10.2016, 12:55   #1
nikola_orsha
 
Регистрация: 11.10.2016
Сообщений: 3
Восклицание Дан массив,состоящий N (N>1) вещественных чисел. Найти среднеарифметическое значение чисел массива.

Дан массив,состоящий N (n>1) вещественных чисел.Найти среднеарифметическое значение чисел массива.
nikola_orsha вне форума Ответить с цитированием
Старый 11.10.2016, 13:05   #2
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,238
По умолчанию

Код:
  sr := 0.0;
  for i:=1 to N do sr := sr + Mas[i];
  sr := sr / N;
  WriteLn(sr:1:4);
Serge_Bliznykov вне форума Ответить с цитированием
Старый 11.10.2016, 13:05   #3
Artsiom
Форумчанин
 
Аватар для Artsiom
 
Регистрация: 13.07.2012
Сообщений: 357
По умолчанию

Идешь по массиву for i = 1 do N
Складываешь в переменную S += a[i]
Делишь S на число элементов в массиве N
Всё.
Artsiom вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Найти номер столбца Двумерного массива вещественных чисел, для которого среднеарифметическое значение его элементов минимально 9398 Visual C++ 2 16.02.2016 12:25
Дан массив целых чисел,состоящий из 10 элементов Stifleroy Паскаль, Turbo Pascal, PascalABC.NET 1 23.04.2014 19:42
Java: Дан двумерный массив чисел А размером 6х6 и одномерный массив Х из 6-ти чисел. Заменить первые три строки массива A vikysha55 Помощь студентам 1 16.04.2014 10:50
Дан числовой массив А, состоящий из n целых чисел . Если все элементы массива являютя чётными, то увеличьте положительные элементы Pantiks Паскаль, Turbo Pascal, PascalABC.NET 1 24.10.2013 16:59
Дан массив. Найти минимальный элемент массива среди положительных чисел NataliaKovaleova Паскаль, Turbo Pascal, PascalABC.NET 1 04.10.2012 14:28