Хотелось бы конечно определиться с границами массива, но раз они не заданы, то допустим, что массив имеет размерность 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.
Если в процессе понимания решения возникнут какие-либо сложности, то обращайтесь.
20
Объяснение:
Задача на линейную динамику. Требуется построить таблицу, которая покажет, сколько получить из числа 1 каждое число до 30. При этом учесть, что траекторий проходит через 14. Все числа после 14, должны быть получены из него. Отсюда и получается, что получить нечетное число большее 14 нет. А кол-вол получить четные числа большие 14 и меньшие 28 равны кол-ву получить число 14. Кол-во получить число 28 удваивается, потому что число 28 можно получить как из 26, так и из 14.
Таблицу прикрепил.