Текущий архив: 2002.06.17;
Скачать: CL | DM;

Вниз

Призеры   Найти похожие ветки 

← →
Leo^Sun   (2002-06-02 22:30) [0]

Помогите создать список вида: номер имя набранные очки, чтобы призеры сортировались по набранным очкам...

---

← →
Daddy   (2002-06-03 19:30) [1]

ЭЭЭЭЭ.
Список = record
Номер: byte;
Имя: string;
Очки: longint;
end;
var
Призеры: array[1..10] of список;
max:=longint

Ну а далее сортируй как хочешь, ну типа в цикле:

If Список.Очки[n]+1<Список.Очки[n] then Max:=Список.Очки[n]

Вотъ

---

Страницы: 1 вся ветка

Текущий архив: 2002.06.17;
Скачать: CL | DM;

Наверх

Память: 0.43 MB
Время: 0.006 c