1. Записать структуру с именем STUDENT, содержащую следующие поля:
=>NAME – фамилия и инициалы;
=>GROUP – номер группы;
=>SES – успеваемость (массив из пяти элементов).
2. Написать программу, выполняющие следующие действия:
=>ввод с клавиатуры данных в массив STUD1, состоящий из десяти структур типа STUDENT; записи должны быть упорядочены по возрастанию содержимого поля GROUP;
=>вывод на дисплей фамилий и номеров групп для всех студентов, включенных в массив, если средний балл студента больше 4.0;
=>если таких студентов нет, вывести соответствующее сообщение.
Вот код который я пытался сделать
1.
type
STUDENT=record
NAME:String;
GROUP:integer;
SES:array[0..4] of byte;
end;
2.
var
STUD1:array[0..9]of STUDENT;
i,j:integer;
vspom:student;
sr:real;
Count:byte;
begin
for i:=0 to 9 do
begin
writeln('Please enter a name');
readln(stud1[i].name);
writeln('Please enter a group');
readln(stud1[i].group);
for j:=0 to 4 do
begin
writeln('Введите оценку:');
readln(stud1[i].ses[j]);
end;
end;
for j:=0 to 8 do
begin
if stud1[i].group<stud1[i+1].group then
vspom:=stud1[i];
stud1[i]:=stud1[i+1];
stud1[i+1]:=vspom;
end;
count:=0;
for i:=0 to 9 do
begin
sr:=(stud1[i].ses[0]+stud1[i].ses[1]+stud1[i].ses[2]+stud1[i].ses[3]+stud1[i].se
s[3])/2;
if sr>4.0 then
writeln('Name:',stud1[i].name,'','Group:',stud1[i].group
)
else
count:=count+1;
end;
if count=5 then
writeln('Все троечники и двоечники');
end;
Но чето не выходит у меня