Задача про рост студентов

[filimon_ok]

Помогите решить задачу, без нее не допустят до итогового зачета
Условие
Имеются сведения о росте N учеников одного класса. Определить средний рост учеников, чьи фамилии расположены в журнале между фамилиями учеников с минимальными и максимальными ростами.

[Stilet]

Ок. Покажи как ты этих учеников вводишь. Откуда мы знаем что за условия хранения данных там у тебя.

[rubius2008]

На каком языке нужно сделать? У самого идеи есть какие?

[filimon_ok]

делфи, я нуб(

[rubius2008]

наверно тут надо всего лишь массив с значениями роста

var r:array [1..100] of real;

ищешь самого рослого и мелкого

rmax:=1; rmin:=1;
for i:=2 to n do begin
  if r[rmax]<r[i] then rmax:=i;
  if r[rmin]>r[i] then rmin:=i;
end;

находишь суммарный рост

sr:=0;
for i:=rmin+1 to rmax-1 do sr:=sr+r[i];

вывод среднего роста

writeln(sr/(rmax-rmin-1));

да еще до подсчета суммарного роста надо добавить

if rmax<rmin then begin
 x:=rmax;
 rmax:=rmin;
 rmin:=x;
end;

[filimon_ok]

спасибо большое