Максимальное количество . с базой данных звучит так: постановка : рассчитать сумму продажи авиабилетов по датам, направлениям рейсов количество незаполненных мест по рейсу, количество не выполненных заявок, количество не явившихся пассажиров на рейс, рейсы с наименьшим и наибольшим количеством продаж исходная информация: * данные о рейсе * журнал регистрации пассажиров * журнал продаж билетов база данных авиабилеты. необходимая информация: номер рейса, направление рейса, цена билета, количество мест по рейсу, дата вылета, количество проданных билетов на рейс, количество за-регистрированных пассажиров. делать базу данных не нужно, я объяснить какие таблицы сделать, с какими полями и какие сделать

Program fantscrin;

 const n = 10;

 Var a: array [1..n] of integer;

     i,j,k:integer; s:real;

Begin

 for i:=1 to n do

   a[i]:=random(20)-10;

 for i:=1 to n do

   write(a[i], '  ');

 for i:=1 to n do

   for j:=1 to n-1 do

     if (a[j]<a[j+1]) then

                      begin

                       k:=a[j];

                       a[j]:=a[j+1];

                       a[j+1]:=k;

                      end;

 writeln('');

 for i:=1 to n do

   write(a[i], '  ');

 s:=0;

 for i:=1 to n do

   if ((a[i] < 0)and(i mod 2=0)) then s:=s+1;

 writeln('');

 writeln(s);

End.

Program fantscrin;

 const n = 10;

 Var a: array [1..n] of integer;

     i,j,k:integer; s:real;

Begin

 for i:=1 to n do

   a[i]:=random(20)-10;

 for i:=1 to n do

   write(a[i], '  ');

 for i:=1 to n do

   for j:=1 to n-1 do

     if (a[j]<a[j+1]) then

                      begin

                       k:=a[j];

                       a[j]:=a[j+1];

                       a[j+1]:=k;

                      end;

 writeln('');

 for i:=1 to n do

   write(a[i], '  ');

 s:=0;

 for i:=1 to n do

   if ((a[i] < 0)and(i mod 2=0)) then s:=s+1;

 writeln('');

 writeln(s);

End.