записи(((

[diller89]

В группе определить средний балл после зимней сессии и
абсолютную успеваемость. Распечатать ФИО студентов,
направленных от завода.
Рассортировать студентов по возрастанию среднего балла.


средний балл вроде получилось а дальше...((

uses crt;
Type wed = record
n : integer ;
fio : string[40] ;
bal : array [1..3] of integer
end;
Var spisok : wed ;
i, j, s : integer; sr : real; nm:byte; pr:boolean;
Begin clrscr; pr:true;


With spisok do
For i:=1 to 3 do
begin
n:=i;
Write (' Vvedite FIO # ', i ,' ');
Readln (fio);
s:=0;
For j:= 1 to 3 do
begin
write ( 'Vvedite ocenky: ' );
readln ( bal [j] );
s := s+ bal [j];
end;
sr := s/3; writeln ( fio, ', Sredniy bal = ', sr:4:1); end;
readln; repeat dec(nm); for i:= 1 to nm do
if spisok.sr[i]
end.

[Филантроп]

добавь еще 1 поле в запись

Type wed = record
n : integer ;
fio : string[40] ;
bal : array [1..3] of integer;
otzavoda:char;{y,n}
end;

и в зависимости от значения этого поля выводи записи

Рассортировать студентов по возрастанию среднего балла.

пример сортировок записей ищите на форуме

[diller89]

блин что то не получается