Семён
4 год назад
Пожалуйста посчитайте решить задачу по информатике) Нужно написать программу на паскале. Тема: циклыВот условие)Оргкомитет олимпиады решил организовать обзорную экскурсию для участников олимпиады. Для этого был заказан двухэтажный автобус (участников олимпиады достаточно много и в обычный они не умещаются) высотой 437 сантиметров. На экскурсионном маршруте встречаются N мостов. Жюри и оргкомитет олимпиады очень обеспокоены тем, что высокий двухэтажный автобус может не проехать под одним из них. Им удалось выяснить точную высоту каждого из мостов. Автобус может проехать под мостом тогда и только тогда, когда высота моста превосходит высоту автобуса. Пожалуйста посчитайте организаторам узнать, закончится ли экскурсия благополучно, а если нет, то установить, где произойдет авария.Входные данные:Во входном файле сначала содержится число N (1<=N<=1000). Далее идут N натуральных чисел, не превосходящих 10000 - высоты мостов в сантиметрах в том порядке, в котором они встречаются на пути автобуса.Выходные данные:В единственную строку выходного файла нужно вывести фразу "No crash", если экскурсия закончится благополучно. Если же произойдет авария, то нужно вывести сообщение "Crash k", где k - номер моста, где произойдет авария. Фразы выводить без кавычек ровно с одним пробелом внутри.
ОТВЕТЫ
Юлий
Oct 24, 2020
var
tmp,n,i:integer;
begin
Readln(n);
for i:= 1 to n do begin
readln(tmp);
if tmp <= 437 then
begin
Writeln('Crash ', i);
halt;
end;
end;
Writeln('No Crash');
end.
tmp,n,i:integer;
begin
Readln(n);
for i:= 1 to n do begin
readln(tmp);
if tmp <= 437 then
begin
Writeln('Crash ', i);
halt;
end;
end;
Writeln('No Crash');
end.
237
Смежные вопросы: