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

Так?

var sum, c,d, max: integer; N: integer; aver: real;begin sum:=0; max:=0; d:=1; writeln('Ввести количество') readln(N); if N>1 then writeln('Ввести скорости'); for d:=1 to N do begin readln(c); if c>max then max:=c; sum := sum + c; end; aver := sum / N; writeln('Средняя скорость - ', aver:0:1); if max>= 60 then writeln('YES') else writeln('NO');end.

Что-то типа. Попробуй эту парашу скомпилировать.

ПОЛУЧИЛОСЬ! Спасибо вам огромное))

Пожалуйста.

ОТДЕЛ Задание+;ИСПОЛЬЗУЕТ Приём ИЗ "...\Отделы\Обмен\", Вывод ИЗ "...\Отделы\Обмен\";ПЕР  N, сумма, сч, скор, макс: ЦЕЛ;УКАЗ  сумма := 0;  макс := 0;  Вывод.Цепь("Введите число автомобилей: ");  N := Приём.Число();  ЕСЛИ N < 1 И N > 30 ТО Вывод.Цепь("^Ошибка.") ИНАЧЕ    Вывод.Цепь("^Введите скорости:^");    ОТ сч := 1 ДО N ВЫП      скор := Приём.Число();      ЕСЛИ N < 1 И N > 300 ТО Вывод.Цепь("^Ошибка."); СТОП(0) КОН;      УВЕЛИЧИТЬ(сумма, скор);      ЕСЛИ скор > макс ТО макс := скор КОН;      Вывод.Цепь(" ")    КОН  КОН;  Вывод.ЧВещ("^Средняя скорость: %.1f.^", сумма / N, 0, 0, 0);  ЕСЛИ макс >= 60 ТО Вывод.Цепь("YES") ИНАЧЕ Вывод.Цепь("NO") КОНКОН Задание.