Хотелось бы конечно определиться с границами массива, но раз они не заданы, то допустим, что массив имеет размерность 10х10. Также нам неизвестен тип данных (целочисленный или вещественный), так что допустим, что массив заполняется целочисленными элементами. Тогда, программа примет следующий вид:
VAR
A: ARRAY [1..10, 1..10] OF INTEGER;
i, j: BYTE; {Переменные-счётчики циклов}
flag: BOOLEAN: {переменная флаг логического типа, сигнализирующая о наличии или отсутствии отриц.элементов в первой строке}
BEGIN
flag := FALSE; {Изначально допустим, что отриц.элементов нет}
FOR i := 1 TO 10 DO
FOR j := 1 TO 10 DO
READLN (A[i, j]); {Заполняем массив элементами}
FOR i := 1 TO 10 DO
IF A[1, i] < 0 THEN flag := TRUE; {Проверяем первую строку на наличие отриц. элементов}.
IF flag THEN WRITELN ('Да') ELSE WRITELN ('Нет');
END.
Если в процессе понимания решения возникнут какие-либо сложности, то обращайтесь.
16
Объяснение:
Почти из всех населённых пунктов ведут по 3 дороги, исключениями являются только пункты К (из него ведут только 2 дороги) и Е (5 дорог). Сопоставив это с количеством непустых ячеек таблицы, можно определить, что пункт К соответствует П5, а пункт Е - П7.
По рисунку видно, что из пункта К (П5) ведут 2 дороги - одна в сторону Д и одна в сторону Е (П7). В то же время в таблице в строке П5 непустые значения имеются в пересечениях со столбцами П1 и П7 (уже известное Е), следовательно пункту Д соответствует П1.
Чтобы определить длину пути из Д в Е, найдём в таблице ячейку на пересечении П1 и П7, в ней находится значение 16.
