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

Var a: array[1..10] of integer; cnt1, cnt2, i: integer; begin   for i: = 1 to 10 do     read(a[i]);   for i: = 1 to 5 do   if a[i] > 0 then cnt1 : = cnt1 + 1;   for i: = 6 to 10 do   if a[i] > 0 then cnt2 : = cnt2 + 1;   if cnt1 = cnt2 then writeln('количество пол-х элементов одинаково');   if cnt1 > cnt2 then writeln('количество пол-х элементов больше в первой половине');   if cnt1 < cnt2 then  writeln('количество пол-х элементов больше во второй половине'); end. пример: -1 -2 3 5 0 4 6 7 -2 -5 количество пол-х элементов больше во второй половине

11) начало 2) i = 1 2.1) k = i^2 2.2) вывод k 2.3) i = i + 1 2.4) i > 5 ? если да, возвращаемся на 2.1) если нет, окончание цикла. 3) конец. 2 1) начало 2) k = 0 (счетчик нечетных чисел) 3) ввод первого числа a1 3.1) если [a1 / 2] < a1 / 2, то k = k + 1 (ввели нечетное число) 4) ввод второго числа a2 4.1) если [a2 / 2] < a2 / 2, то k = k + 1 (ввели нечетное число) 5) ввод третьего числа a3 5.1) если [a3 / 2] < a3 / 2, то k = k + 1 (ввели нечетное число) 6) вывод k 7) конец 3 1) начало 2) объявление массива а() пока неизвестного размера (динамического) 3) i = 1 3.1) ввод очередного числа a(i) 3.2) если a(i) = 0, то переход на 4) 3.3) i = i + 1 3.4) возврат на 3.1) 4) переопределение динамического массива a(i) размером i элементов. 5) конец