Упорядочить, найти лучшего студента (с процедурами)

Посмотреть архив целиком
program studenti;

{$APPTYPE CONSOLE}

uses
SysUtils;

type stud=record
fam:string[20];
imia:string[20];
ball:integer;
end;
studmas=array[1..25] of stud;

procedure VVOD(var st:studmas;var n:integer);
var i:integer;
begin
writeln('Vvedite kolichestvo studentov');
readln(n);
for i:=1 to n do begin
writeln ('Vvedite familiu');
readln(st[i].fam);
writeln('Vvedite imia');
readln(st[i].imia);
writeln('Srednii ball');
readln(st[i].ball);
end;
end;

procedure SORT (var st:studmas;n:integer);
var i,j:integer;
buf:stud;
begin
for j:=1 to n-1 do
for i:=1 to n-j do
if st[i].fam>st[i+1].fam then begin
buf:=st[i];
st[i]:=st[i+1];
st[i+1]:=buf;
end;
end;

procedure VIVOD (st:studmas;n:integer);
var i:integer;
begin
writeln('Familia Imia Srednii ball');
for i:=1 to n do writeln (st[i].fam,' ',st[i].imia,' ',st[i].ball);
end;

procedure VISHII (st:studmas;n:integer;var max:studmas;var k:integer);
var i,m:integer;
begin
m:=st[1].ball;
for i:=1 to n do
if st[i].ball>m then m:=st[i].ball;
k:=0;
for i:=1 to n do
if st[i].ball=m then begin
k:=k+1;
max[k]:=st[i];
end;
end;

var st,max:studmas;
n,k:integer;
begin
VVOD(st,n);
SORT(st,n);
VIVOD(st,n);
VISHII(st,n,max,k);
writeln('Spisok luchix');
VIVOD(max,k);
readln;
end.





Чтобы не видеть здесь видео-рекламу достаточно стать зарегистрированным пользователем.
Чтобы не видеть никакую рекламу на сайте, нужно стать VIP-пользователем.
Это можно сделать совершенно бесплатно. Читайте подробности тут.