Задан двумерный массив найти если таковые есть отрицательные элементы первой строки ответ дать в виде да или нет в паскаль

хотелось бы конечно определиться с границами массива, но раз они не заданы, то допустим, что массив имеет размерность 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.

если в процессе понимания решения возникнут какие-либо сложности, то обращайтесь.

Минимальная единица измерения - 1 бит.

1 байт = 8 бит

1 кбайт = 1024 байт

1 мбайт = 1024 кбайт

1 байт, 10 бит, 1000 байт, 1 кбайт, 10000 бит, 1020 кбайт, 1 мбайт