С клавиатуры вводится матрица вещественных чисел размером N строк на M столбцов. N не превосходит 10, M не превосходит 20. Найти и вывести первый по модулю меньший Z (вводится с клавиатуры) элемент и его координаты. Если элементов, удовлетворяющих условию нет, вывести соответствующее сообщение.
решить кумир/паскаль

Вопрос школьника по предмету Информатика

С клавиатуры вводится матрица вещественных чисел размером N строк на M столбцов. N не превосходит 10, M не превосходит 20. Найти и вывести первый по модулю меньший Z (вводится с клавиатуры) элемент и его координаты. Если элементов, удовлетворяющих условию нет, вывести соответствующее сообщение.
решить кумир/паскаль

Ответ учителя по предмету Информатика

// 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 -44

28 32 -1 39 3

Z= 5

Строка 2, столбец 2