Записи

type
 
hotel = record
 
nazv, name: string;//название и имя директора
 
rooms: word;//количество номеров в отеле
 
stars: byte;//количество звёзд
 
end;
 
var
 
mas: array [1..100] of hotel;
 
N: byte;//количество отелей
 
max_index, max_ind_2: byte;
 
begin
 
Writeln('Введите количество отелей');
 
Readln(N);
 
{-- Заполнение массива записей --------------------}
 
for var i := 1 to N do
 
with mas[i] do
 
begin
 
Writeln('Введите название ', i, '-го отеля');
 
Readln(nazv);
 
Writeln('Введите имя директора ', i, '-го отеля');
 
Readln(name);
 
Writeln('Введите количество номеров в ', i, '-м отеле');
 
Readln(rooms);
 
Writeln('Введите количество звезд ', i, '-го отеля');
 
Readln(stars);
 
end;
 
{-- Вывод информации из массива -------------------}
 
Writeln('Массив записей с информацией об отелях:');
 
for var i := 1 to N do
 
with mas[i] do
 
begin
 
Writeln(nazv, ' ', name, ' ', rooms, ' ', stars);
 
end;
 
{ Поиск элемента с максимальным количеством номеров}
 
max_index := 1;
 
for var i := 2 to N do
 
if mas[i].rooms > mas[max_index].rooms then
 
max_index := i;
 
{ Поиск элемента со вторым по величине количеством номеров }
 
if max_index = 1 then max_ind_2 := 2
 
else max_ind_2 := 1;
 
for var i := 1 to N do
 
if (mas[i].rooms > mas[max_ind_2].rooms) and (i <> max_index) then
 
max_ind_2 := i;
 
Writeln('Отель, количество номеров в котором второе по величине:');
 
Writeln(mas[max_ind_2].nazv);
 
end.