Question

НАПИШИТЕ И РЕШИТЕ ЭТУ ЗАДАЧУ В PASCAL.ABC. 40 баллов!!!!


За сутки из аэропорта вылетает 12 самолетов. Количество пассажиров случайное число

-

из интервала от 20 до 80 человек.

1. Сформировать соответствующий массив из целых чисел и вывести его на экран.

2. Вычислить общее количество пассажиров за сутки.

3. Сколько пассажиров в среднем улетало каждым рейсом? (среднее арифметическое). 4. Определить, сколько рейсов были убыточными (с числом пассажиров менее 40 чело- век).

Answer 1

Ответ:

program AirportFlights;

const

 FlightsPerDay = 12;

 MinPassengers = 20;

 MaxPassengers = 80;

var

 PassengersArray: array[1..FlightsPerDay] of integer;

 TotalPassengers, AveragePassengers, LossMakingFlights: integer;

 i: integer;

begin

 Randomize;

 // Генерация случайного количества пассажиров для каждого рейса и вывод на экран

 writeln('Количество пассажиров на каждом рейсе:');

 TotalPassengers := 0;

 LossMakingFlights := 0;

 for i := 1 to FlightsPerDay do

 begin

   PassengersArray[i] := Random(MaxPassengers - MinPassengers + 1) + MinPassengers;

   writeln('Рейс ', i, ': ', PassengersArray[i], ' пассажиров');

   TotalPassengers := TotalPassengers + PassengersArray[i];

   if PassengersArray[i] < 40 then

     LossMakingFlights := LossMakingFlights + 1;

 end;

 // Вычисление среднего количества пассажиров

 AveragePassengers := TotalPassengers div FlightsPerDay;

 writeln;

 writeln('Общее количество пассажиров за сутки: ', TotalPassengers);

 writeln('Среднее количество пассажиров на рейс: ', AveragePassengers);

 writeln('Количество убыточных рейсов: ', LossMakingFlights);

 readln;

end.

Объяснение: