Begin
var a := ReadArrInteger('Первый массив: ',10);
var b := ReadArrInteger('Второй массив: ',10);
write('Наибольшее число в');
if a.Max > b.Max then write(' первом')
else write('о втором');
writeln(' массиве.');
end.
Аня-математика.
Саша-география.
Лена-история.
Вася-Литература.
Миша-Информатика
Ответ:
Ответ: 3 пути из города А в город И
Может,ясность............................