Напишите программу для решения следующей задачи. Камера наблюдения регистрирует в автоматическом режиме скорость проезжающих мимо неё автомобилей, округляя значения скорости до целых чисел. Необходимо определить максимальную зарегистрированную скорость автомобиля. Если скорость хотя бы одного автомобиля была меньше 30 км/ч, выведите «YES», иначе выведите «N0».Программа получает на вход число проехавших автомобилей N (1 < N < 30), затем указываются их скорости. Значение скорости не может быть меньше 1 и больше 300.Программа должна сначала вывести максимальную скорость, затем YES или NO.
More Questions From This User See All
Answers & Comments
Verified answer
Условия довольно чётко обозначены, так что ввод и вывод не оформлял.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.