Файл: Курсовая 2010.pdf

s:=s+z.zarpl;

end;

if (n_tseh=z.tseh) and (max<z.zarpl) then

begin max:=z.zarpl; z_max:=z;

end;

end;

s:=s/k;

writeln;

writeln('Srednja sarplata ',s:4:2); writeln('Maksimalnaja sarplata ',max:4:2); write(z_max.fam);

gotoxy(15,wherey); write(z_max.im); gotoxy(27,wherey); write(z_max.otch); gotoxy(44,wherey); write(z_max.tseh); gotoxy(49,wherey); write(z_max.pol); gotoxy(54,wherey); write(z_max.vozrast); gotoxy(59,wherey); write(z_max.zarpl:5:2); writeln;

end;

readkey;

end;

end.

Арк.