Напишите программу для решения следующей задачи. Камера наблюдения регистрирует в автоматическом режиме скорость проезжающих мимо неё автомобилей, округляя значения до целых чисел. Необходимо определить :1)разность максимальной и минимальной скоростей автомобилей;2)количество автомобилей, скорость которых не превышала 30 км/ч.Программа получает на вход число проехавших автомобилей N (1>N>30), затем указываются их скорости. Значение скорости не может быть меньше 1 и больше 300. Программа должна сначала вывести разность максимальной и минимальной скоростей автомобилей, затем количество автомобилей, скорость которых не превышала 30 км/чНУЖНО РЕШИТЬ ТОЛЬКО ЧЕРЕЗ "Кумир" ) ​

Хорошо, давайте решим задачу по шагам.

Шаг 1: Ввод данных
При работе в среде "Кумир" мы можем использовать функцию "ВводЦелого" для получения значения числа проехавших автомобилей N. Затем мы можем использовать цикл "Для" для ввода скоростей каждого автомобиля и сохранения их в массиве.

```
N: целое
Max: целое
Min: целое
Count: целое

ВводЦелого(N)
Автомобили: массив[1..N] из целых чисел
Для i = 1 До N Цикл
ВводЦелого(Автомобили[i])
КонецЦикла
```

Шаг 2: Нахождение разности максимальной и минимальной скоростей
Для определения разности максимальной и минимальной скоростей, мы можем использовать цикл "Для" для прохода по всем элементам массива автомобилей и нахождения максимального и минимального значения. Затем мы просто вычисляем разность.

```
Max := Автомобили[1]
Min := Автомобили[1]

Для i = 2 До N Цикл
Если Автомобили[i] > Max Тогда
Max := Автомобили[i]
КонецЕсли
Если Автомобили[i] < Min Тогда
Min := Автомобили[i]
КонецЕсли
КонецЦикла

Разность := Max - Min
Вывод(Разность)
```

Шаг 3: Подсчет количества автомобилей со скоростью не более 30 км/ч
Мы можем использовать цикл "Для" для прохода по всем элементам массива автомобилей и подсчета количества автомобилей, скорость которых не превышает 30 км/ч.

```
Count := 0

Для i = 1 До N Цикл
Если Автомобили[i] <= 30 Тогда
Count := Count + 1
КонецЕсли
КонецЦикла

Вывод(Count)
```

Полная программа будет выглядеть следующим образом:

```
N: целое
Max: целое
Min: целое
Count: целое

ВводЦелого(N)
Автомобили: массив[1..N] из целых чисел
Для i = 1 До N Цикл
ВводЦелого(Автомобили[i])
КонецЦикла

Max := Автомобили[1]
Min := Автомобили[1]

Для i = 2 До N Цикл
Если Автомобили[i] > Max Тогда
Max := Автомобили[i]
КонецЕсли
Если Автомобили[i] < Min Тогда
Min := Автомобили[i]
КонецЕсли
КонецЦикла

Разность := Max - Min
Вывод(Разность)

Count := 0

Для i = 1 До N Цикл
Если Автомобили[i] <= 30 Тогда
Count := Count + 1
КонецЕсли
КонецЦикла

Вывод(Count)
```

Надеюсь, это поможет вам решить задачу! Если у вас возникнут дополнительные вопросы, буду рад помочь!