2
Объяснение:
Найдем в таблице станцию с минимальным количеством путей к другим станциям.
Это станция D от неё идёт единственный путь на станцию В и стоимость проезда равна 3.
Сравним эту информацию со схемами:
1) На первой схеме от станции D идёт единственный путь на станцию В и стоимость проезда равна 3. Значит пока данная схема соответствует таблице.
2) На второй схеме от станции D идёт единственный путь на станцию В и стоимость проезда равна 3. Значит пока данная схема соответствует таблице.
3) На третьей схеме от станции D идёт единственный путь на станцию Е и стоимость проезда равна 3. Значит данная схема не соответствует таблице.
4) На четвёртой схеме от станции D идёт единственный путь на станцию С и стоимость проезда равна 3. Значит данная схема не соответствует таблице.
У нас осталось только 2 схемы: первая и вторая.
Теперь найдем в таблице станцию с максимальным количеством путей к другим станциям.
Это станция А от неё идут пути на станции В, С и Е. Стоимость проезда АВ равна 1, АС равна 4 и АЕ равна 1.
Сравним эту информацию с оставшимися схемами:
1) На первой схеме от станции А идут пути на станции В, С и Е. Стоимость проезда АВ равна 1, АС равна 4 и АЕ равна 2. Значит данная схема не соответствует таблице.
2) На второй схеме от станции А идут пути на станции В, С и Е. Стоимость проезда АВ равна 1, АС равна 4 и АЕ равна 1. Значит данная схема соответствует таблице .
У нас осталась только вторая схема.
Сравним остальные данные из таблицы с ней.
Данные по всем остальным станциям из таблицы совпадают со второй схемой.
Увы, нет.
...var Y:array[1..N] of real... ошибка в написании, компилятор сообщит, что тип параметра не может быть описанием массива с границами. Пример:
var a:array [1..n] of real; Procedure ab(var b:array [1..n] of real);
К сожалению переменная и формальный параметр не одного типа.
Стоит использовать Type:
type ba= array [1..n] of real; var a: ba; Procedure ab(var b:ba);
