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