Текст программы

program project5.32;

uses crt;

const

K=999999;

type anketa=record

fio: string;

pod: integer;

lin: integer;

okl: real;

b: integer;

end;

type ank=record

pod: integer;

okl: real;

end;

Arr= array [1..k] of anketa;

ar= array [1..k] of ank;

var

sotr: arr;

sor:ar;

N, i: integer;

s:real;

Procedure Vvod();

var

i:Integer;

begin

Writeln('Vvod:');

for i:=1 to N do

begin

Write ('fio: ');

readln(sotr[i].fio);

Write ('pod: ');

readln(sotr[i].pod);

Write ('lin: ');

readln(sotr[i].lin);

Write ('okl: ');

readln(sotr[i].okl);

Writeln;

clrscr;

end;

end;

Procedure Vivod();

var

i:Integer;

begin

Writeln('Vivod:');

for i:=1 to N do

begin

Writeln;

Write ('fio ',sotr[i].fio);

Write (' pod ',sotr[i].pod);

Write (' lin ',sotr[i].lin);

Write (' okl ',sotr[i].okl:8:2);

Writeln;

end;

end;

Procedure VivodMinSumOklPodr();

var

i,j:Integer;

NomPodr:Integer;

MinOklSum:Real;

MinOkl:Real;

PredNomPodr:Integer;

tempS:anketa;

begin

for i:=1 to N do

begin

sor[i].pod:=0;

sor[i].okl:=0;

end;

{sort po nompodr}

for i:=1 to N do

for j:=i to N do

begin

if sotr[i].pod < sotr[j].pod then

begin

tempS:= sotr[i];

sotr[i]:= sotr[j];

sotr[j]:= tempS;

end;

end;

PredNomPodr:= -1;

j:=0;

MinOkl:=100000000; {maxreal}

for i:=1 to N do

begin

if sotr[i].pod <> PredNomPodr then

begin

PredNomPodr:= sotr[i].pod;

j:=j+1;

end;

sor[j].pod:=sotr[i].pod;

sor[j].okl:=sor[j].okl + sotr[i].okl;

{nahodim min oklad}

if sotr[i].okl < MinOkl then

MinOkl:=sotr[i].okl;

end;

NomPodr:=-1;

MinOklSum:=100000000; {maxreal}

for i:=1 to N do

begin

if sor[i].pod =0 then

break;

if sor[i].okl < MinOklSum then

begin

MinOklSum:=sor[i].okl;

NomPodr:=sor[i].pod;

end;

end;

Writeln;

Writeln ('Podr: ','MinOklSum');

Write (NomPodr, ':', MinOklSum:8:2);

Write (';');

end;

begin

write('Vvedite N ->');

readln(N);

Vvod();

Vivod();

VivodMinSumOklPodr();

Writeln;

write('OK');

readln;

end.

РЕЗУЛЬТАТ ВЫПОЛНЕНИЯ ПРОГРАММЫ