5.Ниже в табличной форме представлен фрагмент базы данных «Отправление поездов дальнего следования»: Вокзал Пункт назначения Категория поезда Время в пути Кисловодск скорый 31:22 Казанский Кисловодск скорый 35:37 Курский Кишинёв пассажирский 31:50 Киевский 62:10 Казанский 60:35 скорый скорый скорый скорый скорый Ярославский Курский Красноярск Красноярск Кременчуг Круглое Поле Мариуполь Новый Уренгой 17:35 21:12 Казанский 22:55 фирменный 64:46 Курский Ярославский Курский Новый Уренгой 63:11 скорый скорый скорый 22:28 Одесса Киевский 25:39 Киевский Одесса Сколько записей в данном фрагменте удовлетворяют условию (Вокзал = «Курский») ИЛИ (Время в пути < 30:00)?

PascalABC.NET 3.7:

Пояснение:

RS - ReadString: Возвращает значение типа string, введенное с клавиатуры.

AdjacentGroup: Группирует одинаковые подряд идущие элементы, получая последовательность массивов.

SelectMany: Проецирует каждый элемент последовательности в новую последовательность и объединяет результирующие последовательности в одну последовательность.

.Len - .Length: Длина массива.

.Str - .JoinToString: Преобразует последовательность символов в строку, не используя разделитель (при последовательность другого типа данных в качестве разделителя используется пробел).

.Pr - .Print: Выводит последовательность символов на экран, не используя разделитель (при последовательность другого типа данных в качестве разделителя используется пробел).

Пример работы: