Question

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

Answer 1

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