// PascalABC.NET 3.2, сборка 1431 от 28.04.2017// Внимание! Если программа не работает, обновите версию!begin var n:=ReadInteger('Количество строк в матрице:'); var m:=ReadInteger('Количество столбцов в матрице:'); Writeln('*** Исходная матрица [',n,',',m,'] ***'); var a:=ReadMatrInteger(n,m); var z:=ReadInteger('Z='); var s:=a.ElementsWithIndexes.Where(x->abs(x[2])<=z); if s.Count>0 then begin var t:=s.First; Writeln('Строка ',t[0]+1,', столбец ',t[1]+1) end else Writeln('Элемент не найден');end.ПримерКоличество строк в матрице: 4Количество столбцов в матрице: 5*** Исходная матрица [4,5] ***-33 -46 7 48 -44-13 -3 -13 -10 48-18 -25 -39 -23 -4428 32 -1 39 3Z= 5Строка 2, столбец 2