Предмет: Информатика,
автор: umka2345
Напишите программу для решения следующей задачи. Камера наблюдения регистрирует в автоматическом режиме скорость проезжающих мимо неё автомобилей, округляя значения скорости до целых чисел. Необходимо определить максимальную зарегистрированную скорость автомобиля. Если скорость хотя бы одного автомобиля была меньше 30 км/ч, выведите «YES», иначе выведите «N0».Программа получает на вход число проехавших автомобилей N (1 < N < 30), затем указываются их скорости. Значение скорости не может быть меньше 1 и больше 300.Программа должна сначала вывести максимальную скорость, затем YES или NO.
Ответы
Автор ответа:
23
Условия довольно чётко обозначены, так что ввод и вывод не оформлял.
Приложения:
shoshin142:
Вот код, если что:
Program Cars;
var
i, n, v, max_v, min_v: integer;
Begin
//Ввод числа авто
readln(n);
//Поиск максимальной и минимальной скорости
max_v := 0;
min_v := 300; //Берём противоположные скорости, чтобы найти максимум и минимум
for i := 1 to n do
begin
read(v);
if (v > max_v) then
max_v := v;
if (v < min_v) then
min_v := v;
end;
//Вывод ответов
writeln(max_v);
if (min_v < 30) then
write('YES')
else
write('NO');
End.
var
i, n, v, max_v, min_v: integer;
Begin
//Ввод числа авто
readln(n);
//Поиск максимальной и минимальной скорости
max_v := 0;
min_v := 300; //Берём противоположные скорости, чтобы найти максимум и минимум
for i := 1 to n do
begin
read(v);
if (v > max_v) then
max_v := v;
if (v < min_v) then
min_v := v;
end;
//Вывод ответов
writeln(max_v);
if (min_v < 30) then
write('YES')
else
write('NO');
End.
Похожие вопросы
Предмет: Математика,
автор: okescatopeska2018
Предмет: Алгебра,
автор: 3345565554332
Предмет: Алгебра,
автор: bogdanangelina973
Предмет: Обществознание,
автор: nshchipacheva
Предмет: Информатика,
автор: jcorovina2012