Определить номера строк матрицы 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[1])).All(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