Задача на Паскаль-обработать и отсортировать данные об участниках соревнований

[subzero95]

Проанализировать данные по N секциям. Информация об участнике задаётся строкой, которая содержит номер секции, фамилия, имя, пол, рост, вес.
1) Обеспечить приём всех данных с комментариями с клавиатуры и записать их в массив строк.
2) Для тех секций, в которых максимальный вес участника больше среднего по всем секциям, упорядочить участников в порядке невозрастания их роста. Найти и вывести средний рост девушек, занимающихся в каждой секции.
3) Вывести на печать отсортированный массив строк (не более 3-х первых строк по каждой секции).

В этой задаче меня интересует второй пункт. Как отсортировать участников если они идут не подряд, к примеру:
1 S. Alex m 170 70
2 M. Max m 179 110
1 K. Nick m 185 70



Вот мои наброски... Не судите строго, знаю что каряво:

 program asdf;
 uses CRT;
 var a:array[1..10,1..10]of string;
     v,n,i,code,j,k:integer;
     b,s,sr:real;
 begin
  ClrScr;
  writeln('VVEDITE KOLVO CHELOVEK');
  readln(n);
  if (n<=0) or (n>20) then
   writeln('ANOMAL')
   else
   begin
   for i:=1 to n do
    begin
    j:=0;
    inc(j);
    writeln('VVEDITE NOMER SEKCHII');
    readln(a[i,j]);
    inc(j);
    writeln('VVEDITE FAMIL');
    readln(a[i,j]);
    inc(j);
    writeln('VVEDITE UMIA');
    readln(a[i,j]);
    inc(j);
    writeln('ROST');
    readln(a[i,j]);
    inc(j);
    writeln('POL');
    readln(a[i,j]);
    inc(j);
    writeln('VES');
    readln(a[i,j]);
    end;
    s:=0;
    k:=0;
    for i:=1 to n do
     begin
     Val(a[i,6],b,Code);
     s:=s+b;
     k:=k+1;
     end;
     sr:=s/k;
     for i:=1 to n do
     begin
     Val(a[i,6],b,Code);
      if b>sr then
      begin
    ???????????
 ?????????????
???????????????                              {Это я уже незнаю}
       end;
         end;
...

[subzero95]

Никто не знает?..

[Serge_Bliznykov]

несмотря на

1) Обеспечить приём всех данных с комментариями с клавиатуры и записать их в массив строк.

, имхо, задачу можно упростить - обеспечьте ввод данных в массив ЗАПИСЕЙ об участниках соревнований, а потом уже обработку записей (сортировку, например) проводите в этом массиве.

Если же хотите, то и со строками можно замутить.
Тогда я бы написал функции, которые возвращают нужную информацию из строки.
например,
функция GetSection(s : string) : integer;
вернёт номер секции,

функция GetHeight(s : string) : integer;
вернёт рост.
ну и т.д.

да и вместо двухмерного массива я бы ограничился обычным одномерным...


а возни (рутины) в этих ТРЁХ задачах действительно много...
Например, я не вижу, где Вы в коде ищите максимальный вес по каждой секции.
(чтобы его сравнивать потом со средним весом по всем секциям), ведь только потом уже можно заниматься упорядочиванием данных!

Никто не знает?..

Если Вы думаете, что желающих бросить все свои дела и заниматься чужим кодом за час найдётся очень много, то Вы явно заблуждаетесь! Здесь не раздел Фриланс, чтобы бросаться на задачу!

Успехов в разработке кода!

[subzero95]

Благодарю.

а возни (рутины) в этих ТРЁХ задачах действительно много...

Сейчас пытаюсь сделать задачу 2 одним циклом... Решил пойти через запись...

[Serge_Bliznykov]

во-первых, если вдруг застопоритесь - пишите в тему, обязательно приводите свой наработанный код.

во-вторых, если до завтра не разберётесь, думаю, смогу Вам помочь!
только не расхолаживайтесь, постарайтесь решить задачу самостоятельно!