Question

Известно число пассажиров, перевозимое метрополитеном ежедневно в течение недели. Определить число пассажиров, которое было перевезено в самый загруженный день.

Answer 1

Ответ:

Объяснение:

Язык Паскаль.

Модель:

Среднее число пассажиров, перевозимых по Кольцевой ветке равно 850 000 человек.

ДСЧ выбрасывает число из интервала 1-100000. Если это число четное, то его вычитаем из среднего, иначе прибавляем к среднему.

Листинг:

uses Crt;

const n=850000;

          m=7;

type Metro = array [1..m] of longint;

var     A: Metro;

            i: integer;

  P, max: longint;

begin

ClrScr; Randomize; max:=0;

for i:=1 to m do

  begin

     P:=1+random(100000);

     if (P mod 2 = 0) then P:=(-1)*P;

     A[i]:=n+P;

     if A[i]>max then max:=A[i];

       WriteLn ('   ', i, ': ',A[i]:5);

  end;

 WriteLn(' Max = ',max);

ReadLn;

end.

Результат работы - в прикрепленных фото.