список студентов

[Марийка92]

Даны сведения о двухстах абитуриентах: фамилии и оценки, полученные на трех вступительных экзаменах. Напечатать список будущих студентов при условии, что норма приема — 40 человек, а зачисляются абитуриенты, набравшие наибольшую сумму баллов за три экзамена.

type abiturient=record
   familiy: string[15];
    exz1: 1..5;
    exz2: 1..5;
    exz3: 1..5;
    sum:integer;
end;
var abitur: array [1..5] of abiturient;
   I, sum: integer;
begin
   for I:=1 to 2 do
   begin
      writeln('abitur');
      writeln ('введите фамилию ',I,'-ого абитуриента');
      readln (abitur[I].familiy);
      writeln ('введите оценки за 1-ый экзамен ');
      readln (abitur[I].exz1);
      writeln ('введите оценки за 2-ой экзамен ');
      readln (abitur[I].exz2);
      writeln ('введите оценки за 3-ий экзамен ');
      readln (abitur[I].exz3);
      sum:= abitur[I].exz1+ abitur[I].exz2+abitur[I].exz3;
   end;

  for I:=1 to 2 do
      begin
        writeln('',I,'-ый абитуриент:');
        writeln('Фамилия: ',abitur[I].familiy);
        writeln('Результат экзаменов: ',I,'-ого абитуриента'  ,sum);
        writeln;
end;

Не считает сумму оценок каждого абитуриента и не сортирует по убыванию.


________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Vanta11a]

sum:= abitur[I].exz1+ abitur[I].exz2+abitur[I].exz3;

исправить на

abitur[I].sum:= abitur[I].exz1+ abitur[I].exz2+abitur[I].exz3;

Сортировка вообще не прописана, соответственно и не сортирует.

[Son Of Pain]

Сумму не считает, потому что должно быть
abitur[i].sum:= abitur[I].exz1+ abitur[I].exz2+abitur[I].exz3;
и во writeln тоже abitur[i].sum

Сортировку лень писать )

[Летучий_СкилетиК]

исправте

sum:= abitur[I].exz1+ abitur[I].exz2+abitur[I].exz3;

на

abitur[I].sum:= abitur[I].exz1+ abitur[I].exz2+abitur[I].exz3;

исправте

writeln('Результат экзаменов: ',I,'-ого абитуриента' ,sum);

на

writeln('Результат экзаменов: ',I,'-ого абитуриента' ,abitur[I].sum);

ну и сортировка

...
for i:=1 to n - 1 do
for j:=i+1 to n do
if abitur[i].sum>abitur[j].sum then begin
         t:=abitur[i];
         abitur[i]:=abitur[j];
         abitur[j]:=t;
         end;...

[Марийка92]

да не лень) просто пишу а у меня вообще ничего не работает)
но за поправку спасибо)