Страница 1 из 1
Помогите решить задачку
Добавлено: 26 сен 2009, 15:03
_belka_
Доброго времени суток!
Здача:
Дан массив:
X=(0.5, 1.5, 2.0, 2.5, 3.0)
Найти наибольшее по модулю отклонение элементов массива от среднего значения.
Помогите решить пожалуйста.Если можно с объяснением.
Спасибо
Re: Помогите решить задачку
Добавлено: 26 сен 2009, 16:14
Mr.Qwerty
_belka_, стучите в аську 562215911 или 577866848 помогу, или же на почту
MrProQwerty@gmail.com .. Жду)
Re: Помогите решить задачку
Добавлено: 26 сен 2009, 17:29
_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.