Составьте программу заполнения массив 15 случайных вещественных чисел из промежутка [2: 3) вывода массива в строке с тремя десятичными знаками форматный вывод
Не хватает либо цены за билет эконом класса либо цены за билет бизнес класса.
Uses crt; var a,b,x,c,d:real; begin ClrScr; writeln('Введите кол-во нераспроданных билетов бизнес класса (а) и кол-во нераспроданных билетов эконом. класса (б) '); readln(a,b); // Узнали, сколько осталось нераспроданных билетов разных классов. c:=160*0.75-b; // Узнали, сколько билетов продано эконом класса. d:=160*0.25-a; // Узнали, сколько билетов продано бизнес класса. x:=d+c/2; writeln('Для того, чтобы узнать сколько денег получила авиакомпания за этот рейс нужно число х: ',x,' умножить на цену билета бизнес класса, либо умножить на удвоенную цену одного билета эконом класса'); readln end.
Или ответ: число которое выведет программа х, например, ответ: 15х
begin
var a := ArrRandomReal(15, 2, 3 - 1e-15);
a.Select(t -> Round(t, 3)).Println
end.
2.777 2.692 2.943 2.469 2.085 2.212 2.522 2.286 2.255 2.602 2.898 2.178 2.677 2.826 2.664