Реферат: Программа оптимизации рискового портфеля

b[j,i]:=z;

if i<>j then begin E[i,j]:=0; end;

end;

end;

writeln;

ma:=0;

for i:=1 to n do

begin

if m[i]>ma then ma:=m[i];

end;

mi:=100000000;

for i:=1 to n do

begin

if m[i]<mi then mi:=m[i];

end;

writeln(' Введите желаемую эффективность портфеля. ');

write(' Она должна быть в пределах эффективностей ценных бумаг: ');

out5:

readln(mp);

if (mp<mi) or (mp>ma) then

begin

writeln(' Ошибка ввода!');

write(' Число должно быть в пределах эффективностей ценных бумаг!: ');

goto out5;

end;

end;

procedure vivod ;

begin

writeln;