0 / 0 / 0
Регистрация: 15.12.2015
Сообщений: 23
1

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

15.12.2015, 20:01. Показов 1275. Ответов 1
Метки нет (Все метки)

Для заданного массива из m целых чисел найти среднее арифметическое его элементов, вывести индексы тех элементов, разница между значениями которых и средним арифметическим не превышает заданного числа b.

P.S: первый курс, прошу о помощи
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
15.12.2015, 20:01
Ответы с готовыми решениями:

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

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

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

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

1
Эксперт Pascal/Delphi
6803 / 4562 / 4817
Регистрация: 05.06.2014
Сообщений: 22,438
16.12.2015, 17:14 2
Лучший ответ Сообщение было отмечено EdwardRebel как решение

Решение

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
{Для заданного массива из 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.
0
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 целых чисел и определите,...


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

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru