// 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
5)137:2=68 ост. (1)68:2=34 (0) 34:2=17(0) 17:2=8 ост.(1) 8:2=4 (0) 4:2=2 (0) 2:2=1 (0) 2:1=0,5 (1). Записываем 0 и 1 наоборот ( с конца )
10001001 - двоичная
137:8=17 ост(1) 17:8=2 (1) 8:2=2 (2). так же записываем наоборот.
211 - восьмеричная
137:16= 129(8) 137-129=9 (9).
89 - шестнадцатеричная
6)1110001=1*2^6+1*2^5+1*2^4+0*2^3+0*2^2*0*2^1+1*2^0=64+32+16+0+0+0+1=133 в десятичной системе