Program Z_7; type rabotnik_predpriyatiya=record fam:string[15]; name:string[10]; dolzh:string[15]; stazh:integer; zar:integer; end; const NSB=30; var rp: file of rabotnik_predpriyatiya; v:rabotnik_predpriyatiya; i,sr,n,m:integer; sum:real; zarp:integer; fff:string; a:array[1..NSB] of real; begin Assign(rp,'c:\spisok'); {$I-} Reset(rp); {$I+} i:=0; writeln('Ukazhite familiu rabotnika'); readln(fff); repeat read(rp,v); i:=i+1; if v.fam=fff then writeln('rabotnik', v.fam); if v.stazh>10 then begin writeln('rabotnik', v.fam,'', v.name); writeln('dolzhnost', v.dolzh); writeln('ego stazh', v.stazh); writeln('poluchaet zarplatu', v.zar); end; n:=0; repeat if zarp<>0 then begin n:=n+1; a[n]:=zarp; sum:=sum+zarp; end; until (n>NSB) or (zarp=0); if n>0 then begin sr:=sum/n; m:=0; for i:=1 to n do if a[i]