unit Unit2;

interface
Type
ss=string[50];
zap=record
fam:ss;
gryppa:ss;
god:integer;
end;
mas=array[1..50] of zap;
// procedure Sozd_mas(var a:mas; n:integer);
Procedure Sort_mas_fam(var a:mas;n:integer);
Procedure Form_Poisk(a:mas;n:integer;gr:ss;var b:mas;var n1:integer);
// Procedure ViV_mas(a:mas;n:integer);
Procedure Molod_stud(a:mas;n:integer;var imax:integer);

implementation
Procedure Sort_mas_fam(var a:mas;n:integer);
var
i,j:integer;
buf:zap;
begin
for i:=1 to n-1 do
for j:=1 to n-i do
if a[j].fam>a[j+1].fam then
begin
buf:=a[j];
a[j]:=a[j+1];
a[j+1]:=buf;
end;

end;
Procedure Form_Poisk(a:mas;n:integer;gr:ss;var b:mas;var n1:integer);
var
i:integer;
begin
n1:=0;
for i:=1 to n do
if a[i].gryppa=gr then begin
n1:=n1+1;
b[n1]:=a[i];
end;

end;
procedure Sozd_mas(var a:mas; n:integer);
var
i:integer;
begin
for i:=1 to n do
begin
writeln('vved fam');
readln(a[i].fam);
writeln('vved gr:');
readln(a[i].gryppa);
writeln('vved god:');
readln(a[i].god);
end;
end;

Procedure Molod_stud(a:mas;n:integer;var imax:integer);
var
i ,maxm:integer;
begin
maxm:=a[1].god;
for i:=2 to n do
if a[i].god>maxm then begin
maxm:=a[i].god;
imax:=i;
end;
end;

{ Procedure ViV_mas(a:mas;n:integer);
var
i:integer;
begin
for i:=1 to n do
writeln(a[i].fam,' ',a[i].gryppa,' ',a[i].god);
end; }

end.





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