Помогите!!! Срочно!!! (Pascal ABC)
5-9 класс
|
В один из летних дней Аркадий со своими родителями отправился в
автомобильное путешествие. Он очень надеялся, что за городом им удастся
избежать ненавистных пробок. Но, увы, уже через час они попали в затор.
Аркадий загрустил и задумался о том, с какой скоростью они могли бы
ехать, если бы не было пробки... Участок дороги, на котором они сейчас
находятся, — однополосный. А это значит, что обгонять едущие впереди
машины не представляется возможным. Т. е. какой бы мощной машина ни
была, она все равно не сможет ехать быстрее, чем машина впереди неё.
Аркадий хорошо разбирается в машинах и поэтому знает максимальные
скорости тех машин, которые едут впереди. Теперь он хочет понять, с
какой максимальной скоростью могла бы ехать каждая машина на данном
участке.
ВХОДНЫЕ ДАННЫЕ
В первой строчке дано число N (1 ≤ N ≤ 200) —
количество машин в пробке. В следующих N строчках записано по одному
целому числу в каждой, причем в i-й строчке записана скорость i-й
машины. Скорость каждой из машин не превышает 300. Считается, что (i + 1)-я машина едет за i-й, а первая машина может ехать со своей максимальной скоростью.
ВЫХОДНЫЕ ДАННЫЕ
Выведите N чисел — скорости машин, с которыми они могли бы ехать на данном участке.
ВХОДНЫЕ ДАННЫЕ
2
80
100
ВЫХОДНЫЕ ДАННЫЕ
80 80
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.
Чем прошлое решение не понравилось?
Другие вопросы из категории
«станок», «беседа» есть слова, кодируемые последовательностями цифр: 35291820, 303115241120. Какая последовательность цифр является кодом слова «китёнок»? В ответе введите только цифры, например, 35292018…
встречаться следующие символы:
"?"-озночает ровно ОДИН произвольный символ.
"*"-означает любую последовательность символов произвольной длины,в том числе может задавать и пустую последовательность.
1)Определите какое из указанных имен файлов удовлетворяет маске:
??pri*.?*
а) napri.q b) pripri.txt c) privet.doc d) 3priveta.c
2) в каталоге 6 файлов
asc.wma
casting.wmv
last.wma
pasta.wmvx
vast.wma
Определите,по какой из перечисленных масок из этих 6 файлов будет отобрана указанная группа файлов:
casting.wmv
last.wma
pasta.wmvx
vast.wma
a) ?as*.wm? b)*as?.wm* c)?as*.wm* d)?as*.w*
Читайте также
Составить программу,которая выводит на экран сумму нечетных чисел от 1 до 30 в Pascal ABC.
2) дано четырёхзначное число. Что больше: произведение цифр числа или их утроенная сумма. pascal ABC
Составьте программу, позволяющую определить, будет ли введённая строка перевёртышем после удаления из неё всех пробелов
СУММЕ КУБОВ ЕГО ЦИФР. Помогите, пожалуйста
1. Составьте программу для определения большего из двух чисел х или у
2. Составьте программу для нахождения площади прямоугольника по заданным сторонам а и б