Решение на Паскаль

[UlyaUlyanina]

Кто может решить эту задачу в Паскале с помощью деревьев?
1. Описать структуру с именем AEROFLOT, содержащую следующие ноля:
a)название пункта назначения рейса;
б)номер рейса;
в)тип самолета.

2. Написать программу, выполняющую следующие действия:
а)ввод с клавиатуры данных в массив, состоящий из семи элементов типа
AEROFLOT; записи должны быть размещены в алфавитном порядке по
названиям пунктов назначения;
б)вывод на экран пунктов назначения и номеров рейсов, обслуживаемых самолетом,
тип которого введен с клавиатуры;
в)если таких рейсов нет, выдать на дисплей соответствующее сообщение.

[UlyaUlyanina]

program my_prog;

 type
  aeroflot=record
  punkt: string[20]; //для ввода пункта назначения с клавиатуры
  nomer: integer;
  tip: string[20];
 end ;
 var
  i, n, poz: integer;
  pn: boolean;
  tips: string[20];
  f: file of aeroflot;
  a: aeroflot;
 begin
  {если в файле уже есть записи тогда можно  ввести 0 для их просмотра}
  write('Vvedite kolicestvo zapisey   ');
  read(n);
  assign(f,'C:/papka.txt');

[ACE Valery]

UlyaUlyanina, по-моему, вы чуток перегибаете палку, накросспостив 4 раза. Это ваша тема. Все остальные будут безжалостно удаляться, а вы будете безжалостно штрафоваться, пока сумма штрафов не превысит нормы для бана (а вам не так много до него осталось)