(O. Шецова) Между населёнными пунктами А, В, С, D, E, F построены дороги, протяжённость которых приведена в таблице. Отсутствие числа в таблице означает, что прямой дороги между пунктами нет. Определите длину кратчайшего пути между пунктами А и D, проходящего через пункТ Е. Передвигаться можно только по указанным дорогам.
В запись student добавляете новое поле kurs, Type student = recordLastName: string ; bal: array [1..5] of integer; kurs: integer;average: real end; В цикле по студентам добавляете ввод курса with pupil[i] do begin Write ('Введите фамилию студента №', i ,': '); Readln (LastName); Write('Введите курс '); Readln(kurs); В конце программы изменяете вывод writeln ( 'Студенты первокурсники, имеющие средний больший или равный 4'); For i:=1 to n do beginif (pupil[i].average >=4) and (pupil[i].kurs = 1) then write (pupil[i].LastName,', ');
Решение на фото. Удачи!