Статистика
Всего в нашей базе более 4 327 660 вопросов и 6 445 975 ответов!

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

5-9 класс

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

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

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

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

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

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

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

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

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

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

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

участке.

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

NikCry 02 февр. 2014 г., 22:45:55 (10 лет назад)
Рейтинг
+ 0 -
0 Жалоба
+ 0 -
Маша887
03 февр. 2014 г., 0:48:58 (10 лет назад)

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.

+ 0 -
Spiref
03 февр. 2014 г., 3:23:43 (10 лет назад)

Чем прошлое решение не понравилось?

Ответить

Другие вопросы из категории

Для шифровки каждой буквы слова используется двузначное число. Известно, что буква «к» кодируется числом 20. Среди слов «торт», «ёжик»,

«станок», «беседа» есть слова, кодируемые последовательностями цифр: 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*

Читайте также

Составить программу, которая выводит на экран в обратном порядке нечетные числа от 29 до 1 в Pascal ABC.

Составить программу,которая выводит на экран сумму нечетных чисел от 1 до 30 в Pascal ABC.


1) дано четырёхзначное число. вывести максимальную и минимальную цифру. pascal abc

2) дано четырёхзначное число. Что больше: произведение цифр числа или их утроенная сумма. pascal ABC

Помогите пожалуйста решить задачу в pascal ABC. Очень срочно нужно

Составьте программу, позволяющую определить, будет ли введённая строка перевёртышем после удаления из неё всех пробелов

Очень срочно, и очень нужно составить программы по информатике PASCAL ABC, помогите, пожалуйста от этих программ зависит моя четвертная.

1. Составьте программу для определения большего из двух чисел х или у
2. Составьте программу для нахождения площади прямоугольника по заданным сторонам а и б



Вы находитесь на странице вопроса "Помогите!!! Срочно!!! (Pascal ABC)", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.