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

writeln('___________________________________________________');

writeln('| | tovar | Zij - minZij |');

writeln('| |___________________________|__________________|');

writeln('| den | odezda | obyv | knigi |igryshki| c1 | c2 | c3 | c4 |');

writeln('|_____|______|_______|_____|_______|____|_____|____|____|');

end;

{vvod cen na tovar }

begin

writeLn('vvedite ceny na odezgy ');

readln(codezda);

writeLn('vvedite ceny na obyv ');

readln(cobyv);

writeLn('vvedite ceny na knigi ');

readln(cknigi);

writeLn('vvedite ceny na igryshki ');

readln(cigryshki);

{naxogdenie cluchainim obrazom pokupateley }

for i:=1 to 4 do

begin

a[i].c1:=random(100)+1;

a[i].c2:=random(100)+1;

a[i].c3:=random(100)+1;

a[i].c4:=random(100)+1;

end;

{podshet cen- pokupateli*ctovara }

for i:=1 to 4 do

begin

a[i].c1:= a[i].c1*codezda;

a[i].c2:= a[i].c2*cobyv;