Напишите программу для решения следующей задачи. Камера наблюдения регистрирует в автоматическом режиме скорость проезжающих мимо неё автомобилей, округляя значения скорости до целых чисел. Необходимо определить:
1) разность максимальной и минимальной скоростей автомобилей;
2) количество автомобилей, скорость которых не превышала 30 км/ч.
Программа получает на вход число проехавших автомобилей N (1 ≤ N ≤ 30), затем указываются их скорости. Значение скорости не может быть меньше 1 и больше 300. Программа должна сначала вывести разность максимальной и минимальной скоростей автомобилей, затем количество автомобилей, скорость которых не превышала 30 км/ч. В Питоне
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.
Подробнее - на -
Объяснение: