ИНФА РЕШИТЬ=) В аэробусе, вмещающем 160 пассажиров, три четверти мест находятся в салонах экономического класса и одна четверть мест — в салоне бизнес-класса. Стоимость билета в салоне бизнес-класса составляет х рублей, что в два раза выше стоимости билета в салонах экономического класса.

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

Что вписывать на скриншоте ниже?

1)
program n_1;
var a:array[1..10] of integer;
i, n, k, s:integer;
begin
writeln('Введите кол-во элементов');
readln(n);
k:=0;
for i:=1 to n do
begin
a[i]:=random(20)+10;
writeln(a[i],' ');
if (i mod 2=0) then
s:=s+a[i];
If (i mod 2<>0) then
k:=k+1;
end;
writeln('Сумма=',s);
writeln('Кол-во нечётных элементов=',k);
end.
2)
program kol_vo_elementov;
var a:array[1..10] of integer;
i, n, k, s:integer;
begin
writeln('Введите кол-во элементов');
readln(n);
k:=0;
for i:=1 to n do
begin
a[i]:=random(9)+1;
writeln(a[i],' ');
if (i mod 2=0) then
k:=k+1;
end;
writeln('Кол-во чётных элементов=',k);
end.

Цикл работает с разными интервалами. Допустим от -1 до 1 будет 2. От 1 до 2 будет 3. От 5 до 11 будет 38.

Объяснение:

program Sum_cifr;

var i, x, a, b, S:integer;

begin

 readln(a, b);

 S:=0;

 for i:= a to b do

   begin

   

   x:=Abs(i);     // делаем положительным число, если оно отрицательное

   while x>0 do                    // цикл, в котором будет число

       begin                             //будет разбиваться на цифры

       

       S:= S+(x mod 10);    // отсекаем у числа последнюю цифру

       x:= x div 10;            //  и складываем, а после убираем последнюю

                                       // цифру у самого числа

       end;

   

   end;

 writeln(S)

end.