Курсовая работа: Условия неопредел нности критерий Сэвиджа 2

begin

b[i].c1:=a[i].c1-n1;

b[i].c2:=a[i].c2-n2;

b[i].c3:=a[i].c3-n3;

b[i].c4:=a[i].c4-n4;

end;

r1:=b[1].c1;

for i:=1 to 4 do

begin

if r1<b[i+1].c1 then

r1:=b[i+1].c1;

end;

r2:=b[1].c2;

for i:=1 to 4 do

begin

if r2<b[i+1].c2 then r2:=b[i+1].c2;

end;

r3:=b[1].c3;

for i:=1 to 4 do

begin

if r3<b[i+1].c3 then r3:=b[i+1].c3;

end;

r4:=b[1].c4;

for i:=1 to 4 do

begin

if r4<b[i+1].c4 then r4:=b[i+1].c4;

end;

{nahogdenie otveta }

min:=r1;