Привет! Меня зовут Алексей и я хочу поделиться с вами программой на Pascal, которую я написал для решения данной задачи. Эта задача позволяет определить среднюю зарегистрированную скорость проезжающих мимо камеры автомобилей и проверить, была ли скорость хотя бы одного автомобиля не меньше 60 км/ч.
В начале программы мы запрашиваем у пользователя количество проехавших автомобилей N (1 ≤ N ≤ 30). Затем мы используем цикл для получения скоростей этих автомобилей. Значение скорости должно быть не меньше 1 и не больше 300.Далее мы выполняем вычисления для определения средней скорости и проверки, была ли скорость хотя бы одного автомобиля не меньше 60 км/ч.Вот как это выглядит в коде⁚
pascal
program AverageSpeed;
var
N, speed, totalSpeed, count⁚ integer;
averageSpeed⁚ real;
hasSpeedG60⁚ boolean;
begin
write(‘Введите количество проехавших автомобилей N⁚ ‘);
readln(N);
totalSpeed ⁚ 0;
count ⁚ 0;
hasSpeedG60 ⁚ false;
writeln(‘Введите скорости автомобилей⁚’);
for i ⁚ 1 to N do
begin
write(‘Автомобиль ‘, i, ‘⁚ ‘);
readln(speed);
totalSpeed ⁚ totalSpeed speed;
if speed > 60 then
hasSpeedG60 ⁚ true;
count ⁚ count 1;
end;
averageSpeed ⁚ totalSpeed / count;
writeln(‘Средняя скорость⁚ ‘, averageSpeed⁚0⁚1);
if hasSpeedG60 then
writeln(‘YES’)
else
writeln(‘NO’);
readln;
end.
Я надеюсь, что эта программа поможет вам решить данную задачу на Pascal. Если у вас возникнут вопросы, не стесняйтесь задавать их. Удачи в программировании!