uses crt; const nn=5; type sportsmeny=record imya:string[10]; familiya:string[15]; popytki:integer; apr_v_vec:string[10]; end; rezultaty=array[1..12] of integer; masiv=array[1..nn] of sportsmeny; var i,n,p,s:integer; rez: rezultaty; w,a,b:char; vybor: byte; name, surname: string; m: masiv; sum: integer; procedure vvod; var sport:sportsmeny; begin inc(n); with sport do begin write('Imya: '); readln(imya); write('Familiya: '); readln(familiya); write('Kolichestvo popytok: '); readln(popytki); writeln('Vvedite rezuljtaty v santimetrah: '); writeln('Esli ne zaschitano, vvedi 0'); for s:=1 to popytki do begin readln(rez[s]);end; m[n]:=sport; end; end; procedure showmenu; begin writeln('1) Vvod'); Writeln('2) Raspechatatj spisok'); Writeln('3) Udalitj element iz spiska'); Writeln('4) Najti element'); writeln('5) Uporyadichitj'); Writeln('6) Vyhod'); Writeln; Write(' Vash vybor : '); end; procedure vyvod; var i:integer; begin for i:=1 to n do begin with m[i] do begin write('Imya: ',imya); write(' Familiya: ',familiya);writeln; write('Kolichestvo popytok: '); write(popytki); writeln; write('Rezuljtaty: '); for s:=1 to popytki do write(rez[s],' ');writeln; writeln('Vychislennaya velichina: '); sum:=0; for s:=1 to popytki do begin sum:=sum+rez[s]; write(sum/popytki:6:3); end; writeln; end; end;end; {procedure delete; var i:integer; z: string; begin writeln('Vvedite familiyu sportsmena, kotorogo hotile udalitj'); readln(z); if z>n then writeln('Ne suwestvuet!') else begin for i:=z+1 to n do M[i-1]:=M[i]; dec(n); end; end;} {procedure poisk; var name:string; begin writeln('Vvedi familiyu'); readln(surname); with m.familiya do begin write('Imya: ',imya); write(' Familiya: ',familiya);writeln; write('Kolichestvo popytok: '); write(popytki); writeln; write('Rezuljtaty: '); for s:=1 to popytki do write(rez[s],' ');writeln; writeln('Vychislennaya velichina: '); sum:=0; for s:=1 to popytki do begin sum:=sum+rez[s]; write(sum/popytki:6:3); end; end; end;} {procedure poryadok(var m:masiv; var g:integer); var x:mas; i,j,p:integer; procedure bubble(var x:mas; var m:masivs; g:integer); var i,j:integer; maina:boolean; procedure obmen(var a,b:sportsmeny); var c:sportsmeny; begin c:=a; a:=b; b:=c; end; begin i:=g-1; repeat maina:=false; for j:=1 to i do if ord(x[j][1])>ord(x[j+1][1]) then begin mainit(m[j],succ(m[j])); maina:=true end; dec(i); until(i<1) or (maina=false) end;} begin clrscr; vvod; {writeln('Uporadochitj po:'); writeln('a - imeni'); writeln('b - familii'); readln(p); case p of a:for i:=1 to g do x[i]:=m[i].imya; b:for i:=1 to g do x[i]:=m[i].familiya; end; bubble(x,m,g); vyvod; end;} repeat showmenu; readln(vybor);writeln; case vybor of 1: vvod; 2: vyvod; {3: delete; 4: poisk; 5: poryadok(m,n);} 6: halt(1); until vybor=6; readkey; end.