Для того чтобы добраться до института у Кати и Лены есть варианта - на троллейбусе или маршрутке. Троллейбус едет до института T1 минут, а маршрутка – T2 минут. Катя вышла на остановку в 7 часов M1 минут и тут же села в троллейбус. Лена вышла на остановку в 7 часов M2 минут и ей тут же подвернулась маршрутка. Кто из них доедет до института раньше.(Общие сведения)pascal.

var

  a: array[1..1000] of real;

  i, k, n, z: integer;

begin

  writeln('введите число n: ');

  readln(n);

  writeln('введите число z: ');

  readln(z);

  writeln('введите ',n,' действительных чисел (каждое с новой строки): ');

  for i : = 1 to n do

  begin

    readln(a[i]);

    if a[i] > z then

    begin

      a[i] : = z;

      k : = k + 1;

    end;

  end;

  writeln('количество замен: ', k);

end.

var

  a: array[1..1000] of real;

  i, k, n, z: integer;

begin

  writeln('введите число n: ');

  readln(n);

  writeln('введите число z: ');

  readln(z);

  writeln('введите ',n,' действительных чисел (каждое с новой строки): ');

  for i : = 1 to n do

  begin

    readln(a[i]);

    if a[i] > z then

    begin

      a[i] : = z;

      k : = k + 1;

    end;

  end;

  writeln('количество замен: ', k);

end.