Найти похожее не удалось, написал сам
Код:
uses crt;
type student=record
name:string[20];
age,weight:byte;
end;
var group:array [1..50] of student;
i,n:byte;
averweight:real;
f: file of student;
begin clrscr;
write ('Enter amount of students: ');
readln (n);
writeln ('Enter the information about students:');
assign (f,'group.dat');
rewrite (f);
for i:=1 to n do begin
with group[i] do begin
write ('Name: ');
readln (name);
write ('Age: ');
readln (age);
write ('Weight: ');
readln (weight);
averweight:=averweight+weight;
end;
write (f,group[i]);
writeln;
end;
clrscr;
averweight:=averweight/n;
writeln ('Average weight is ',averweight:4:2);
close (f);
reset (f);
writeln ('N':5, 'Name':22, 'age':5, 'weight':8, 'Weight is above the averege':30);
for i:=1 to n do begin
read(f,group[i]);
with group[i] do
write (i:5, name:22, age:8, weight:5);
if group[i].weight>averweight then
writeln ('Yes':10)
else
writeln;
end;
close(f);
readkey;
end.
Разбирайтесь