Question

Помогите!!! Срочно!!! (Pascal ABC)

В один из летних дней Аркадий со своими родителями отправился в

автомобильное путешествие. Он очень надеялся, что за городом им удастся

избежать ненавистных пробок. Но, увы, уже через час они попали в затор.

Аркадий загрустил и задумался о том, с какой скоростью они могли бы

ехать, если бы не было пробки... Участок дороги, на котором они сейчас

находятся, — однополосный. А это значит, что обгонять едущие впереди

машины не представляется возможным. Т. е. какой бы мощной машина ни

была, она все равно не сможет ехать быстрее, чем машина впереди неё.

Аркадий хорошо разбирается в машинах и поэтому знает максимальные

скорости тех машин, которые едут впереди. Теперь он хочет понять, с

какой максимальной скоростью могла бы ехать каждая машина на данном

участке.

ВХОДНЫЕ ДАННЫЕ
В первой строчке дано число N (1 ≤ N ≤ 200) —
количество машин в пробке. В следующих N строчках записано по одному
целому числу в каждой, причем в i-й строчке записана скорость i-й
машины. Скорость каждой из машин не превышает 300. Считается, что (i + 1)-я машина едет за i-й, а первая машина может ехать со своей максимальной скоростью.
ВЫХОДНЫЕ ДАННЫЕ
Выведите N чисел — скорости машин, с которыми они могли бы ехать на данном участке.
ВХОДНЫЕ ДАННЫЕ
2
80
100
ВЫХОДНЫЕ ДАННЫЕ
80 80

Answer 1

var
   a: array[1..200] of integer;
   i, n: integer;
    begin
   readln(n);
   for i := 1 to n do
   begin
     readln(a[i]);
     if i > 1 then
       if a[i] > a[i-1] then
         a[i] := a[i-1];
   end;
   for i := 1 to n do
     write(a[i], ' ');
 end.