Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 13.05.2016, 19:47   #1
lfybbk
Пользователь
 
Регистрация: 10.05.2016
Сообщений: 10
По умолчанию Статистические характеристики

Пишу программу, которая по введенному ряду чисел и их количеству определяет моду, размах, медиану и среднее арифметическое. Помогите пожалуйста с модой медианой и размахом. лучше в виде фрагмента программы, а не процедуры или функции т.к. имею дело с массивом. Или исправить и дополнить полуготовое:
Код HTML:
Program statsolver;

Var 
  a: array [0..1000] Of integer;
  r,mid,m,sr,sum, min, max: real;
  k, w, j,i,n:integer;
Begin
  writeln ('Введите количество данных');
  readln(n);
  writeln('Введите данные');
  For I:=1 To n Do
    read (a[i]);


//сюда надо моду и медиану
for I:=1 to n do 
begin
sum:=sum+a[i];
end;
sr:=sum/n;

writeln ('Среднее арифметическое ряда: ',sr:0:0);
min:=a [1];
max:=a [1];
for I:=1 to n do
begin
	if a[I]> max then max:=a [i];
	if a [i]<min then min := a [i]
	end;
	writeln ('Максимум: ',max:0:0,'; Минимум:',min:0:0);
	r:=max-min;
	writeln ('Размах: ',r:0:0);
	
end.
lfybbk вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Статистические критерии. Критерий Джонкира. AnutaPr Помощь студентам 0 09.10.2013 11:09
Массивы(статистические) Bleize Помощь студентам 1 26.11.2010 21:59
Статистические структуры данных Natika Общие вопросы C/C++ 0 27.10.2010 23:55
Про статистические характеристики и другое???? vigulina Помощь студентам 0 23.02.2010 21:49
Статистические функции в Excell 2003 DCWL Microsoft Office Excel 9 11.03.2009 14:21