Сортировка по убыванию среднего балла

[Alexander788]

Как правильно отсортировать по убыванию среднего балла ? в одномерном массиве язык программирования Delphi 7

var     x:real;
begin
  for I := 1 to n - 1 do
      if sred[i] < sred[i+1] then
        begin
          x := sred[i+1];
          sred[i+1] := sred[i];
          sred[i] := x;
          memo5.Lines.Add(floatToStr(sred[i]));
        end;

у меня кароче есть список средного балла по предметам
2
3,5
3,5
2,5
3

в сортировке выдает
3,5
3,5
2,5
3
3
помогите исправить
исходник
http://rghost.ru/56248412

[Serge_Bliznykov]

во-первых, не видно, как у Вас массив описан. // опс. не видел, что Вы исходник выложили..

во-вторых, попробуйте такой код:

begin
  for i := 1 to n - 1 do
    for j:=i+1 to n do
      if sred[i] < sred[j] then
        begin
          x := sred[i];
          sred[i] := sred[j];
          sred[j] := x;
        end;

// а потом уже вывод
  memo5.Lines.Append('Массив после сортировки:');
  for i := 1 to n do
      memo5.Lines.Append(floatToStr(sred[i]));

[Alexander788]

Сообщение от Serge_Bliznykov

во-первых, не видно, как у Вас массив описан. // опс. не видел, что Вы исходник выложили..

во-вторых, попробуйте такой код:

begin
  for i := 1 to n - 1 do
    for j:=i+1 to n do
      if sred[i] < sred[j] then
        begin
          x := sred[i];
          sred[i] := sred[j];
          sred[j] := x;
        end;

// а потом уже вывод
  memo5.Lines.Append('Массив после сортировки:');
  for i := 1 to n do
      memo5.Lines.Append(floatToStr(sred[i]));

Спасибо ) Заработало )

[Serge_Bliznykov]

рад. пожалуйста!

[Alexander788]

А да еще скажите пожалуйста как можно сделать чтобы список с учеников выдавал с отсортированным списком средного бала
Например :

Ученик 1
Ученик 2
Ученик 3
Ученик 4
Ученик 5

Исходный средный
3,5
2,5
3
2
3,5
Отсортированый
Ученик 5 3,5
Ученик 1 3,5
Ученик 3 3
Ученик 2 2,5
Ученик 4 2

[Mad_Cat]

список с учеников выдавал с отсортированным списком средного бала

при перестановке среднего балла аналогично переставляйте учеников

[Serge_Bliznykov]

можно и переставлять учеников в ваших массивах.
но намного удобнее использовать тип RECORD

вместо

var
  fam:array[1..10] of string;
  balm:array[1..10] of integer;
  bali:array[1..10] of integer;
  sred:array[1..10] of real;
  i,j,n,l,s:integer;

пишите:

type Tstud = record 
  fam : string;
  balm : integer;
  bali   : integer;
  sred : real
end;

const N = 10;
var 
  students : array[1..N] of Tstud;
  x : Tstud;
...
...
  students[i].bali :=random(4)+2;
  students[i].balm:=random(4)+2;
  students[i].sred := (students[i].bali + students[i].balm)/2;

при сортировке:

begin
  for i := 1 to n - 1 do
    for j:=i+1 to n do
      if students[i].sred < students[j].sred then
        begin
          x := students[i];
          students[i] := students[j];
          students[j] := x;
        end;