PascalABC.NET

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
PascalABC.NET Найти сумму элементов матрицы расположенных на втором столбце 3)Найти сумму элементов матрицы расположенных на втором столбце. Закрасить указанные элементы. Помогите пожалуйста. Остальные задачи оформляйте в отдельных темах! https://www.cyberforum.ru/ pascalabc-net/ thread1614560.html	Нахождение корня кубического уравнения методом половинного деления PascalABC.NET Вот написал программу для нахождения корня кубического уравнения методом половинного деления, но она не рабоет, не могу понять, что не так? Program prog_1; var a,b,c,d,x1,x2,x3,e:real; ...
PascalABC.NET Напечатать в алфавитном порядке все гласные, входящие в четные слова https://www.cyberforum.ru/ pascalabc-net/ thread1614429.html Помогите доделать программу. Условие такое: Дан текст на русском языке. Напечатать в алфавитном порядке все гласные, входящие в четные слова. Суть проблемы такова: Программа выводит гласные буквы...	PascalABC.NET Составить программу для вычисления значения функции https://www.cyberforum.ru/ pascalabc-net/ thread1614279.html Помогите пожалуйста, плохо в этом разбираюсь.
PascalABC.NET Раскраска графов помогите пожалуйста написать программу на паскале в которой нужно с помощью матрицы смежности найти вершинную раскраску планарного графа. заранее благодарю	PascalABC.NET Поменять местами min и max элементы в матрице на диагоналях, параллельных главной Собственно, не могу сделать указанное требование для диагоналей ниже главной. Главная диагональ тоже попадает под это требование. В программе сделано для верхних и главной. Выручите кодом для... https://www.cyberforum.ru/ pascalabc-net/ thread1614212.html
PascalABC.NET Работа с текстовым файлом https://www.cyberforum.ru/ pascalabc-net/ thread1613943.html Уважаемые программисты! Условие задачи следующее: Вывести ФИО и оценки по физике, средний балл которых больше 4,5 балла. Сам только написал программу вывода самого текстового файла на экран. Все,...	PascalABC.NET График функции по формуле Добрый день. Разрешите обратиться за помощью. Есть формула y=1/(sin(x)*cos(x))^2 Необходимо создать программу для построения графика функции. Заранее благодарен.
PascalABC.NET Решение Математических выражений Всем доброго времени суток, прошу помощи в решении данного выражения на языке паскаль. Проблемы с накоплением произведения сумм. N=3, шаг первой суммы 2. https://www.cyberforum.ru/ pascalabc-net/ thread1613790.html	PascalABC.NET Программа завершается после запуска Всем доброго времени суток! Прошу помочь в обнаружении ошибки, в результате которой программа завершается сразу после запуска (использую модуль crt). Вот часть кода, с которой я провожу манипуляции:... https://www.cyberforum.ru/ pascalabc-net/ thread1613710.html
PascalABC.NET Последовательность из нулей и единиц, в которой никакой отрезок не повторяется три раза подряд Найти последовательность из 50 нулей и единиц, в которой никакой отрезок не повторяется три раза подряд. Напечатать НЕТ, если такой последовательности не существует. Вот, что я напридумывала....	PascalABC.NET Перестановка максимального и минимального по значению элементов массива Помогите, суть задания "Перестановка максимального и минимального по значению элементов массива" выдает ошибку в строчке №35 : Ошибка времени выполнения: Индекс находился вне границ массива. VAR ... https://www.cyberforum.ru/ pascalabc-net/ thread1613508.html

ZX Spectrum-128

6804 / 4563 / 4817

Регистрация: 05.06.2014

Сообщений: 22,438

16.12.2015, 17:14

Для заданного массива из m целых чисел найти среднее арифметическое его элементов - PascalABC.NET - Ответ 8498784

16.12.2015, 17:14. Показов 1305. Ответов 1

Метки (Все метки)

Сообщение было отмечено EdwardRebel как решение

Решение

Pascal

{Для заданного массива из m целых чисел найти среднее арифметическое его 
элементов, вывести индексы тех элементов, разница между значениями которых и 
средним арифметическим не превышает заданного числа b.}
const
  n = 100;
 
var
  b, sr: real;
  i: integer;
  a: array [1..n] of integer;
 
begin
  sr := 0;
  for i := 1 to n do
  begin
    a[i] := -n div 2 + random(n);
    write(a[i]:5);
    sr := sr + a[i];
  end;
  writeln;
  sr := sr / n;
  writeln('Среднее: ', sr:0:4);
  writeln('Введите b: ');
  readln(b);
  for i := 1 to n do
    if a[i] - sr < b then
      write(i:4);
end.

Вернуться к обсуждению:
Для заданного массива из m целых чисел найти среднее арифметическое его элементов PascalABC.NET

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

16.12.2015, 17:14

Готовые ответы и решения:

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

Среднее арифметическое для элементов одномерного массива длинных (4-х байтных) целых чисел
Всем привет, помогите Написать программу вычисляющую среднее арифметическое для элементов...

Дан массив Р(30) целых чисел. Найти среднее арифметическое тех элементов массива, которые кратны трем
Добрый вечер! Если не сложно подскажите, что не так в моем коде. Вот задание: Дан массив Р(30)...

Найти среднее арифметическое элементов для каждой строки заданного двухмерного массива
Найти среднее арифметическое элементов для каждой строки заданного двухмерного массива. Значения...

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

16.12.2015, 17:14

Помогаю со студенческими работами здесь

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

Найти среднее арифметическое массива целых чисел
Найти среднее арифмитическое суммы массива 64элемента целых размером в 1byte написать команды для...

Вычислить среднее арифметическое ненулевых элементов массива целых чисел
Var a:array of integer; i,r,b:integer; begin...

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

Наверх