работа с записями, (упорядочение, формирование множества) Опции

[18192123]

Дан массив записей. Каждая запись содержит сведения о студенте группы: Ф.И.О., оценки по 4 предметам.
упорядочить массив по невозрастанию сумм оценок.

начала делать, когда дошла до упорядочения: не пойму, как суммы сравнивать (if sum>sum+1??? или ждесь нужны какие-то индексы?)

uses crt;
type
    tablica=record
       name:string[18];
       matan,alg,TP,info:byte;
       sum:byte;
    end;
var i,j,n:integer; a:tablica;
    mas:array[1..24]of tablica; {tablica - massiv zapicey}
Begin
clrscr;
{vvod kol-va zapisey}
write ('n=');
readln(n);
{vvod elementov v massiv zapicey}
for i:=1 to n do
with mas[i] do
     begin
       writeln ('i=',i:4);
       writeln('FIO');
       readln(name);
       write ('otsenki');
       readln (matan,alg,tp,info);
     end;
sum:=0;
for i:=1 to n do
sum:=sum+mas[i].matan+mas[i].alg+mas[i].tp+mas[i].info;
for i:=1 to n-1 do
  for j:=1 to n-i do
    if {????????}

а вот ещё: дан массив из эн натур. чисел. Сформировать множество цифр, которых нет в записи хотя бы одного из чисел массива.

я не пойму смысла этой задачи, что от меня тут требуется?

Сообщение отредактировано: 18192123 - 27.11.2006 21:29