Напишите программу для решения следующей задачи. Камера наблюдения регистрирует в автоматическом режиме скорость проезжающих мимо неё автомобилей, округляя значения до целых чисел. Необходимо определить :
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)
```
Надеюсь, это поможет вам решить задачу! Если у вас возникнут дополнительные вопросы, буду рад помочь!