Курсовые проекты / курса / бек / 1 / Ботва / Modelup_q / BHH

uses crt;
var e,q: real;
i,c: integer;
h,k: array[1..7] of real;
const
x: array[1..5] of integer=(1, 2, 3, 4, 5);
p: array[1..5] of real=(0.1, 0.25, 0.2, 0.4, 0.05);
begin
clrscr;
randomize;
writeln('—Ёб«® нЄбЇҐаЁ¬Ґ­в®ў: 7');
for i:=1 to 5 do h[i]:=0.0;
for i:=1 to 7 do begin
e:=random;
c:=0; q:=0;
repeat
c:=c+1;
q:=q+p[c];
until q>=e;
h[i]:=e;
k[i]:=x[c];
end;
write('„ЁбЄа. б«. зЁб«®: ');
for i:=1 to 5 do
write(x[i]:4,' ');
writeln;
write('€бе. ўҐа-вЁ: ');
for i:=1 to 5 do
write(p[i]:3:2,' ');
writeln;
writeln;
write('ЌҐЇа. б«. зЁб«® (e): ');
for i:=1 to 7 do
write(h[i]:3:2,' ');
writeln;
write('„ЁбЄа. б«. зЁб«® (е): ');
for i:=1 to 7 do
write(k[i]:3:2,' ');
readln;
end.