Задача на строки в Паскале. Упорядочить и найти средний вес

[Ana]

  Дан список учащихся класса: фамилия, вес. Упорядочить в алфавитном порядке список класса и найти средний вес в классе.

[Asix]

Почему голое условие?
Что Вы делали и что не получается?
Какие есть свои мысли?? =))

[InfStudent]

И в чем проблема? Какие свои мысли, высказываем не стесняемся=)? как представлены данные

[Ana]

 Простите, я все прекрасно понимаю. Но, чтобы решать другие задачи именно по этой теме, мне необходимо разобраться с этой. Я не понимаю абсолютно, как с ней справиться, поэтому не могли бы вы мне помочь один раз. Заранее благодарю вас.

[InfStudent]

Да конечно могу Но просто мне нужно знать как представлены данные: в виде записи или массива?или набора массивов? 

[Ana]

  в виде одномерного массива, я думаю

[InfStudent]

Но тогда вам нужно несколько массивов:класс отдельно,вес отдельно,имя. Идея такая т.к. в таблице ASCII символы расположены в алф. порядке и разрешены операции сравнения, то можно проделать обычную сортировку, беря самую первую букву имени по возрастанию.
         

[Данила]

можно определить класс школота,и в нем поля фамилия и вес) тогда и одномерный пойдет)

[Ana]

Я понимаю, что с моей стороны это может выглядеть нахально, но не могли бы вы написать эту программу? Заранее благодарна.

[InfStudent]

Данил зачем на Красную площадь через Мытищи ездить, как говорила моя математичка достаточно запись определить, а монстр в виде класса)) 

[Данила]

ну да... ООП оставляет свой отпечаток=)

[Данила]

var i,j,n,h:integer;
Name: array [0..50] of string;
Weigth: array [0..50] of real;
begin
write ('Введите число учеников:');
readln (n);
for i:=0 to n do begin
  readln (s);
  readln (j);
  Name[ i ]:=s;
  Weight[ i ]:=j;
end ;

for i:=0 to n do begin
  summ:=summ+Weight;
end;
writeln('Средний вес=',summ);

for i:=0 to n-1 do
for j:=0 to n-i do
  if Name[j]>Name[j+1] then begin
     s:=Name[j];
     Name[j]:=Name[j+1];
     Name[j+1]:= s;
     h:=Weigth[j];
     Weight[j]:=Weight[j+1];
     Weight[j+1]:= h;  
end;

for i:=0 to n do begin
writeln ('Фамилия:', Name[ i ],'  Вес:', Weight[ i ]);
end;

end.


что то вроде этого...если будут косяки - правьте самостоятельно)

[Ana]

 огромное человеческое спасибо.

[Asix]

огромное человеческое спасибо.

Лучше походи по форуме и помоги другим пользователям =))