Задача про массивы

[Max_Grinyuk]

Помогите пожалуйста!!!!!!!! Бьюсь головой об стенку, не знаю как решить, вот задачка, заранее ОГРОМНОЕ СПАСИБО!!!!!!!!!!!!!!!!!!
Найти среднее арифметическое элементов одномерного массива. Разделить
на получившееся значение все элементы массива. Массив ввести с клавиатуры.

[anGeee]

Не понимаю, что здесь такого, что уж вы прям головой об стенку..
Ввели массив, первый раз пробежали по нему, посчитали сумму, разделили на число элементов - вот и среднее арифмитическое. Пробежали второй раз по массиву, деля каждый элемент на полученное ранее среднее арифмитическое. Все выводим.. Что непонятно ?..

[Max_Grinyuk]

просто на теме массив меня не было, а по лекциям не понятна суть......вот и долблюсь головой............

[anGeee]

Ну это вполне познается своими силами )

Const n=10;
Var a : array[1..n] of integer;
      i : byte;
      r : real;
Begin
 WriteLn('Input ',n,' elements: ');
 s:=0;
 for i:=1 to n do
  begin
   Read(a[i]);
   s:=s + a[i];
  end;
 WriteLn('Arithmetic Mean: ',s);
 for i:=1 to n do
  begin
   r:=a[i]/s;
   Write(r:6:2,' ');
  end;
 ReadLn;
 ReadLn;
End.

Ну вот как-то так..

[Max_Grinyuk]

anGeee, спасибо вам ОГРОМНОЕ!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!
А в рекурсии вы понимаете? =)

[anGeee]

Немного понимаю.
пс только не говорите, что надо вычислить факториал числа )

[Gongled]

Насколько я понял, элементы делятся на среднее арифметическое. Вариант, предложенный anGeee, как мне кажется, неверный.

program pr1;
uses CRT;
const
n = 10;
var
a : array[1..n] of real;
i : integer;
sum : real;
begin
clrscr;

for i:=1 to n do
begin
     write('Введите ',i,' элемент: ');
     read(a[i]);
     sum := sum + a[i];
end;

{ Среднее арифметическое }
sum := sum / n;
writeln;

for i:=1 to n do
begin
     a[i] := a[i] / sum;
     write(a[i]:6:2);
end;

end.

UPD:
Пропущена часть деления суммы на количество элементов.

[anGeee]

Ой, забыл написать s:=s / n.. Да и переменную не написал.. Приношу глубочайшие извенения )

[Max_Grinyuk]

anGeee, мне нужно найти n-ый слен последовательности, как я понял.......в задании просто написано a=a+d n n-1

Gongled, спс!!!!!!!!!!!!!!!!!!

[Max_Grinyuk]

мммм.....а полностью программу, чтобы в ней собрано всё было может написать кто-нибудь? А то я реально не в теме..................