ZADANIE 2

cons n=5

var

staz:array[1..n] of integer;

dzial:array[1..n] of char; {p,l,s,m}

stanowisko:array[1..n] of integer; {0-pracownik, 1-kierownik}

placa:array[1..n] of real;

nr,d,i:integer;

min,suma,srednia:real;

begin

randomize;

for i:=1 to n do

begin

staz[i]:=random(30);

d:=random(4);

case d of

0: dzial[i]:='p' ;

1: dzial[i]:='l' ;

2: dzial[i]:='s' ;

3: dzial[i]:='m' ;

end;

stanowisko[i]:=random(2);

case dzial[i] of

'p': if stanowisko[i]=0 then placa[i]:=2200 else placa[i]:=3500;

'l': if stanowisko[i]=0 then placa[i]:=2000 else placa[i]:=3000;

's': if stanowisko[i]=0 then placa[i]:=2000 else placa[i]:=2800;

'm': if stanowisko[i]=0 then placa[i]:=2800 else placa[i]:=3200;

end;

placa[i]:=placa[1]*( 1+0.01*staz[i] );

suma:=suma+placa[i];

writeln(i, ' ' ,stanowisko[i], ' ' ,staz[i], ' ' , dzial[i], ' ' ,placa[i]:2:2)

end;

srednia:=suma/n;

min:=placa[1];

nr:=1;

for i:=2 to n do

if min>placa[i] then begin min:=placa[i]; nr:=i;

end;

writeln('srednia' , srednia:2:2, 'min' ,min:2:2, 'nr' , nr);

end.