Определить номера строк матрицы rmatr[n, m], в которых знаки элементов чередуются. в среде программирования pascalabc.net

// pascalabc.net 3.3, сборка 1627 от 27.01.2018 // внимание! если программа не работает, обновите версию! begin   var (n,m): =readinteger2('количество строк и столбцов в матрице: ');   writeln('*** исходная матрица ***');   var a: =matrrandom(n,m,-99,99);   a.println(4); writeln(4*m*'-');   var s: ='';   for var i: =0 to n-1 do       if a.row(i).pairwise.select(t-> sign(t[0])< > sign((t-> t=true) then           s+=(i+1)+' ';   if s.length=0 then writeln('нет искомых строк')   else writeln('номера строк: ',s) end. пример количество строк и столбцов в матрице: 10 5 *** исходная матрица ***   -27  90  57    3 -62   35 -92 -54  36  17   -57 -32 -31  85  84   22 -82 -42 -26  87   -69  75 -26 -88    7   -76 -60 -73  35  45   94  66  95 -85 -40   83 -60  59 -56  49   -81 -53  67  11  -9   -39 -73  67 -49  91 номера строк: 8

Var  x:   integer,  y:   real begin x  : = 1;   y  : =  0; while  x  < =  7  do begin y  : =  y+sqrt(x*x); x  : =  x+1; end; y  : =  sqrt(y); writeln  (y); end. но  вообще-то  по-нормальному  y  =  √(1 + 2 + + 6 + 7) и  решается  намного  проще.