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

@Maltsev96 · Регистрация: 01.11.2011

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

Даны действительные а1, а2, ... , аn. Получить числа b1 , b2 , ... , bn, где bi - средне-арифметическое всех членов последовательности а1 ,..., аn , кроме
аi ( i = 1, 2, ..., n ).

HighPredator · 03.12.2011, 16:03

Pascal

program Prog;
uses
  Crt;
 
const
  N=10;
 
var
  a:array [1..N] of real;
  b:array [1..N] of real;
  sum:real;
  i,j:integer;
 
begin
  Randomize;
  for i:=1 to N do
  begin
    a[i]:=random(10);
    write(a[i]:3:3,' ');
  end;
  writeln;
  for i:=1 to N do
  begin
    sum:=0.0;
    for j:=1 to N do
    begin
      if i<>j then sum:=sum+a[j];
    end;
    b[j]:=sum/(N-1);
    write(b[j]:3:3,' ');
  end;
  writeln;
  readln;
end.

@Maltsev96 0 / 0 / 1 Регистрация: 01.11.2011 Сообщений: 22
		1
	Найти среднее арифметическое всех членов последовательности 03.12.2011, 15:31. Показов 1756. Ответов 1 Метки нет (Все метки) Даны действительные а1, а2, ... , аn. Получить числа b1 , b2 , ... , bn, где bi - средне-арифметическое всех членов последовательности а1 ,..., аn , кроме аi ( i = 1, 2, ..., n ). 0

	03.12.2011, 16:03

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

Решение