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

@Alex Volkov · Регистрация: 11.11.2012

Author24 — интернет-сервис помощи студентам

Даны натуральные числа i, n; действительные числа a1, ... an. Найти среднее арифметическое всех чисел a1, ... an, кроме ai.

Помогите решить с использованием одномерных массивов!!!

@CodeR · 14.11.2012, 14:51

Pascal

Var A:array[1..100] of real;
    i,j,n:byte;
    sr:real;
Begin
    write('Введите n: ');readln(n);
    Repeat
     write('Введите i: ');readln(i);
    Until i in [1..n];
    For j:=1 to n do
    Begin
      A[j]:=random*10;
      write(A[j]:5:2);
      if i<>j then sr:=sr+A[j];
    End;
    writeln;
    writeln('Среднее арифметическое = ',sr/(n-1):0:2);
    readln;
End.

@Alex Volkov 0 / 0 / 0 Регистрация: 11.11.2012 Сообщений: 10
		1
	Найти среднее арифметическое всех чисел 14.11.2012, 14:29. Показов 3320. Ответов 1 Метки нет (Все метки) Даны натуральные числа i, n; действительные числа a1, ... an. Найти среднее арифметическое всех чисел a1, ... an, кроме ai. Помогите решить с использованием одномерных массивов!!! 0

	14.11.2012, 14:51

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

Решение