Напишите программу для решения следующей задачи. Камера наблюдения регистрирует в автоматическом режиме скорость проезжающих мимо неё автомобилей, округляя значения скорости до целых чисел. Необходимо определить максимальную зарегистрированную скорость автомобиля. Если скорость хотя бы одного автомобиля была меньше 30 км/ч, выведите «YES», иначе выведите «N0».Программа получает на вход число проехавших автомобилей N (1 < N < 30), затем указываются их скорости. Значение скорости не может быть меньше 1 и больше 300.Программа должна сначала вывести максимальную скорость, затем YES или NO.

Вот код, если что:

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.

Условия довольно чётко обозначены, так что ввод и вывод не оформлял.