//Составьте список группы спортсменов участвовавших в соревнованиях по прыжкам в длину.
//Для каждого спортсмена укажите номер участника фамилию, имя, команду, результат.
//Осуществите поиск информаций о спортсменах, занявших первое, второе и третье место...
//в конце должно быть меню
//1)место
//2)место
//3)место
//как его можно сделать ???
program sl;
uses crt;
type
sp=record
fam,name,komand:string;
nom,rez:integer;
end;
var
m:array[1..100] of sp;
k,i,max:integer;
procedure gtx;
begin
write('vvedite koli4estvo u4astnikov ->');
readln(k);
for i:=1 to k do
with m[i] do
begin
write('vvedite imya->');
readln(name);
write('vvedite familiu->');
readln(fam);
write('vvedite komandu->');
readln(komand);
write('vvedite nomer->');
readln(nom);
write('vvedite rezyltat->');
readln(rez);
writeln;
writeln;
end;
end;
procedure poiskk;
begin
max:=0;
for i:=1 to k do
if m[i].rez > max then
max:=m[i].rez;
writeln(' ~~~pervoe mesto zanyal~~~');
writeln('_____________________________________________');
writeln('imya |','familiya|','komanda |','nomer |','rezyltat |');
writeln('_____________________________________________');
writeln(m[i].name:7,'|',m[i].fam:7,' |',m[i].komand:11,'|',m[i].nom:5,' |',max:9,'|');
end;
begin
gtx;
poiskk;
end.
записи поиск |