Code
program wwod_swed;
uses crt;
Type birthday = Record
dd:1..31;
mm:string[10];
yy:integer;
end;
student=Record
famil:string[20];
name:string[15];
date:birthday;
ball: array[1..3] of integer;
srball:real;
end;
Var
gruppa: array[1..20] of student;
n,k:word;
i:integer;
m:real;
begin
clrscr;
Write('сколько человек в группе '); Readln(n);
Writeln ('введите данные о студенте:');
Writeln ('фамилия, Имя, дата рождения (день, месяц, год), оценки по трем предметам');
for i:=1 to n do
with gruppa[i] do
begin
write(i,' студент ');
write('фамилия '); Readln (Famil);
write('имя '); Readln (name);
write('дата рождения '); Read (date.dd); Read (date.mm); Readln (date.yy);
write('оценки '); Read (ball[1]); Read (ball[2]);Readln (ball[3]);
srball:=(Ball[1]+ball[2]+ball[3])/3;
end;
for i:=1 to n do
with gruppa[i] do
begin
write(i,' ',Famil,' ',name,' ',date.dd,' ',date.mm,' ',date.yy,' ',ball[1],ball[2],ball[3],' ' ,srball);
end;
m:=gruppa[i].srball;
k:=1;
for i:=2 to n do
if m> gruppa[i].srball then begin m:= gruppa[i].srball; k:=i; end;
with gruppa[k] do begin
writeln (famil,' ',name, srball);
Readln;
end;
end.