Определить количество абитуриентов, средний которых выше среднего по институту. вывести список поступающих, причем первыми в списке идут абитуриенты, сдавшие все экзамены на 9. дана ведомость абитуриентов, сдавших вступительные экзамены в институт (ее можно дополнить): ф. и.о. оценки местожительство иванов а. г. 9 7 5 вологда петров л. л 9 9 9 грязовец раковский д. г. 4 4 5 сокол акимова я. с. 9 5 4 харовск составьте на паскале =)

Const   nn=100; type   abit=record       fio: string;       ball: array[1..3] of byte;       from: string;       midb: real   end; var   t: abit;   mab: array[1..nn] of abit;   i,j,n,m: integer;   midinst: real; begin   { ввод исходных данных }   write('количество абитуриентов (до 100): '); readln(n);   write('средний по институту: '); readln(midinst);   m: =0;   for i: =1 to n do   begin       writeln('абитуриент № ',i);       with mab[i] do begin           write('фамилия, и.о.: '); readln(fio);           write(' по трем предметам через пробел: ');           readln(ball[1],ball[2],ball[3]);           midb: =(ball[1]+ball[2]+ball[3])/3;           write('место жительства: '); readln(from)           end;       if mab[i].midb> midinst then m: =m+1;   end;   { простейшая обменная сортировка по убыванию }   for i: =1 to n-1 do       for j: =i+1 to n do           if mab[i].midb< mab[j].midb then begin               t: =mab[i];               mab[i]: =mab[j];               mab[j]: =t           end;   { вывод }   writeln;   writeln('количество поступающих со средним выше среднеинститутского: ',m);   for i: =1 to n do       with mab[i] do             writeln(fio,' ',ball[1]: 2,ball[2]: 2,ball[3]: 2,' ',from) end. тестовое решение: количество абитуриентов (до 100): 4 средний по институту: 5.94 абитуриент № 1 фамилия, и.о.: иванов а.г. по трем предметам через пробел: 9 7 5 место жительства: вологда абитуриент № 2 фамилия, и.о.: петров л.л. по трем предметам через пробел: 9 9 9 место жительства: грязевец абитуриент № 3 фамилия, и.о.: раковский д.г. по трем предметам через пробел: 4 4 5 место жительства: сокол абитуриент № 4 фамилия, и.о.: акимова я.с. по трем предметам через пробел: 9 5 4 место жительства: харовск количество поступающих со средним выше среднеинститутского: 3 петров л.л.  9 9 9 грязевец иванов а.г.  9 7 5 вологда акимова я.с.  9 5 4 харовск раковский д.г.  4 4 5 сокол