Курсовая работа: Аналіз успішності групи

s:=0;k:=0;k1:=0; s1:=0;s2:=0;s3:=0;s4:=0; min:=9999;max:=-9999;j:=0;l:=0;

for i:=0 to filesize(f)-1 do

begin

s5:=0;

seek(f,i);

read(f,gr);

s5:=gr.m+gr.is+gr.xi+gr.fi;

if 5<min then

begin

min:=s5;j:=i;

end;

if s5>max then

begin

max:=s5;l:=i;

end;

s:=s+gr.m+gr.is+gr.xi+gr.fi;

s1:=s1+gr.m;

s2:=s2+gr.is;

s3:=s3+gr.xi;

s4:=s4+gr.fi;

k:=k+4;

k1:=k1+1;

end;

seek(f,j);

read(f,gr);

writeln('kursant-',gr.im,' imeet samiy nizkiy bal');

seek(f,l);

read(f,gr);

writeln('kursant-',gr.im,' imeet samiy visokiy bal');