Из Москвы в Санкт-Петербург отправляется скорый поезд. В состав поезда входят 12 купированных вагонов по 9 купе в каждом. Билеты на поезд продавались с помощью автоматизированной системы АСУ-Экспресс в разных регионах России. Определись общее количество пассажиров в поезде, количество вагонов, в котором количество пассадиров меньше среднего по поезду.
P.S. Надо составить массив
И сделать задачу
Если отбросить все лишние слова ("навороты") про Россию и АСУ Экспресс получается вполне тривиальная задачка... .
-----
//Раздел констант
const
//Число вагонов
intTrainLength = 12;
//Число человек в вагоне 4 человека * 9 купе
intCoachSpace = 4*9;
//Раздел переменных
var
arrTrain:array[1..intTrainLength] of byte;
intItem:byte;
i,intTotal:word;
begin
//С первого вагона по последний
for i:=1 to intTrainLength do
begin
//Повторять блок
repeat
//Вводим число пассажиров
Write('Введите число пассажиров в ', i,' вагоне: '); ReadLn(intItem);
//Повторяем ввод, если число пассажиров превысило максимум в вагоне
until intItem
⇢