помогите

[Dimati87]

Здравствуйте!!!!!!!!!!!!!!!!!!!!
Задан массив Н сведений о сдаче экзаменов студентами некоторой специальности университета. Массив имеет следующую структуру: шифр группы: год поступления, порядковый номер; количество отличных оценок, количество хороших оценок, количество удв оценок, количество не уд оценок. Определить процент успеваемости, составить список групп имеющих 100-процентную успеваемость, рассортироватав группы по годам поступления.

[DM_bite]

Создаем запись:

type exzam = record
year: integer;
por: byte;
otl: byte;
good: byte;
udv: byte;
nuvd: byte;
end;

Далее :

var a:array [1..10] of exzam;

Заполняем массив записей...

составить список групп имеющих 100-процентную успеваемость

Проверка на успеваемость группы:

if a[i].nuvd=0 then ...

рассортироватав группы по годам поступления.

Для этого используешь переменные, хранящие промежуточные значения:

if a[i].year>a[i+1].year then
begin
new:= a[i].year;
a[i].year:= a[i+1].year;
a[i+1].year:= new;

И так с каждым компонентом записи.