Напишите программу для решения последующей задачки. Камера наблюдения регистрирует в

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

Задать свой вопрос
1 ответ
Условия довольно чётко обозначены, так что ввод и вывод не оформлял.
Амина Бечейкина
Вот код, если что:
Руслан
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.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт