Ваэробусе, вмещающем 160 пассажиров, три четверти мест находятся в салонах класса и одна четверть мест - в салоне бизнес-класса. стоимость билета в салоне бизнес класса составляет х рублей, что в два раза выше стоимости билета в салонах класса. разработайте программу, которая вычислит сумму денег, полученную авиакомпанией от продажи билетов на этот рейс, если известно, что остались нераспроданными а билетов бизнес-класса и b билетов класса. выделите все этапы решения этой и опишите свои действия на каждом из них. составить в питона,

//PascalABC.NET 3.1 сборка 1200
uses GraphABC;
const
    w = 30;
    delay = 12;

begin
    var k := Window.Width / Window.Height;
    Brush.Color := clForestGreen;
    
    for var i := 0 to Window.Height do
    begin
        var p := new System.Drawing.Point(round(k * i), i);
        FillRectangle(p.X, p.Y, p.X + w, p.Y + w);
        Sleep(delay);
        Window.Clear(clYellowGreen);
    end;
    
    for var i := 0 to Window.Height do
    begin
        var p := new System.Drawing.Point(Window.Width - round(k * i), i);
        FillRectangle(p.X - w, p.Y, p.X, p.Y + w);
        Sleep(delay);
        Window.Clear(clYellowGreen);
    end;
end.

1.
const n=12; 
var
  a:array[1..n] of integer;
  i,max,imax,min,imin:integer;
begin
Randomize;
writeln('Исходный массив:');
for i:=1 to n do begin
  a[i]:=Random(51)+150;
  Write(a[i]:4)
end;
writeln;
max:=a[1]; imax:=1;
min:=a[1]; imin:=1;
for i:=2 to n do 
 begin
 if a[i]>max then begin max:=a[i]; imax:=i; end;
 if a[i]<min then begin min:=a[i]; imin:=i; end;
 end; 
Writeln('max = a[',imax,'] = ',max,',  min = a[',imin,'] = ',min);
end.

Пример:
Исходный массив:
 170 165 194 186 165 161 174 172 177 191 158 181
max = a[3] = 194,  min = a[11] = 158

2.
const n=20; 
var
a:array[1..n] of integer;
i,j,c:integer;
begin
Randomize;
writeln('Исходный массив:');
for i:=1 to n do begin
  a[i]:=Random(51)-25;
  Write(a[i],' ')
end;
Writeln;
for i:=1 to n div 2-1 do
  for j:=1 to n div 2-i do
    if a[j]>a[j+1] then
    begin c:=a[j]; a[j]:=a[j+1]; a[j+1]:=c end;
Writeln('Измененный массив:');
for i:=1 to n do Write(a[i],' ');
Writeln
end.

Пример:
Исходный массив:
16 3 1 18 10 -12 -23 19 -5 -5 0 10 13 14 17 14 6 22 25 -22 
Измененный массив:
-23 -12 -5 -5 1 3 10 16 18 19 0 10 13 14 17 14 6 22 25 -22