Вфирме такси в данный момент свободно 10 машин 5 чёрных 1 жёлтая и 4 зелёных. по вызову выехала одна - id566092320220324 от Амина19121 24.03.2022 03:38

Question

Математика: Вфирме такси в данный момент свободно 10 машин 5 чёрных 1 жёлтая и 4 зелёных. по вызову выехала одна из машин , случяйно оказавшаяся ближе всего к заказчику. найдите вероятность того, что к нему прийдет жёлтое такси

Амина19121 · Accepted Answer

Const n = 20;
var arrA, arrC: array[1..n] of real;
i, j: byte;
sum: real;

begin
randomize;
writeln('Array A:');
for i:=1 to n do begin
arrA[i] := random() * 10 - 5;
write(arrA[i]:6:2);
if i mod 10 = 0 then writeln;
end;

i := 2;
j := 0;
sum := 0;
while i <= n do begin
if arrA[i] > 0 then begin
j := j + 1;
arrC[j] := arrA[i];
sum := sum + arrC[j] * arrC[j];

end;
i := i + 2;
end;
writeln('Array C:');
for i:=1 to j do write(arrC[i]:6:2);
writeln;
writeln('sq.sum = ', sum:5:2);
end.

MOGZ ответил