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

@EdwardRebel · Регистрация: 15.12.2015

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

P.S: первый курс, прошу о помощи

@ZX Spectrum-128 · 16.12.2015, 17:14

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.

@EdwardRebel 0 / 0 / 0 Регистрация: 15.12.2015 Сообщений: 23
		1
	Для заданного массива из m целых чисел найти среднее арифметическое его элементов 15.12.2015, 20:01. Показов 1275. Ответов 1 Метки нет (Все метки) Для заданного массива из m целых чисел найти среднее арифметическое его элементов, вывести индексы тех элементов, разница между значениями которых и средним арифметическим не превышает заданного числа b. P.S: первый курс, прошу о помощи __________________ Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь 0

Опции темы

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

Решение