Даны сведения о двухстах абитуриентах: фамилии и оценки, полученные на трех вступительных экзаменах. Напечатать список будущих студентов при условии, что норма приема — 40 человек, а зачисляются абитуриенты, набравшие наибольшую сумму баллов за три экзамена
const n=4;
type abiturient=record
familiy: string[15];
exz1: 1..5;
exz2: 1..5;
exz3: 1..5;
sum, sumend:integer;
end;
var abitur: array [1..5] of abiturient;
I, sum, j, t: integer;
begin
for I:=1 to n 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);
abitur[I].sum:= abitur[I].exz1+ abitur[I].exz2+abitur[I].exz3;
end;
for I:=1 to n - 1 do
for I:=i+1 to n do
if abitur[I].sum>abitur[I].sum then begin
t:=abitur[I].sum;
abitur[I].sum:=abitur[I].sum;
abitur[I].sum:=t;
end;
begin
writeln('Ôàìèëèÿ: ',abitur[I].familiy);
writeln('Ðåçóëüòàò ýêçàìåíîâ: ', abitur[I].sum);
writeln;
end;
end.
выводит лишь последнего абитуриента и сумму его оценок
