Помогите решить задачку

[_belka_]

Доброго времени суток!
Здача:
Дан массив:
X=(0.5, 1.5, 2.0, 2.5, 3.0)
Найти наибольшее по модулю отклонение элементов массива от среднего значения.

Помогите решить пожалуйста.Если можно с объяснением.
Спасибо

[Mr.Qwerty]

_belka_, стучите в аську 562215911 или 577866848 помогу, или же на почту MrProQwerty@gmail.com .. Жду)

[_belka_]

Таки решил
Решение:

Код: Выделить всё

program Zadadnie;

{$APPTYPE CONSOLE}

uses
  SysUtils, Math;
Type
  Mas=array[1..5] of real;
Const
  M:Mas=(0.5, 1.5, 2.0, 2.5, 3.0);
Var
  N:Mas;
  Sr, absmax:real;
  i:integer;
begin
  Sr:=0;
  For i:= 1 to 5 do Sr:=Sr+M[i]; //Цикл поиска среднего значения
  Sr:=Sr/5;  //Присвоение и расчёт среднего значения
  For i:=1 to 5 do
   Begin
    N[i]:=abs(M[i]-Sr); //Вычитание из элементов массива среднего значения(тоесть мы находим то самое "отклонение") и запись этого значения по модулю в новый массив
   end;
  absmax:=M[1];
  For i:=1 to 5 do if N[i]>absmax then absmax:=N[i]; //Поиск самого болшого "отклонения"
  Writeln('Otvet', absmax:6:3);
  Readln;
end.