Создайте двумерный массив X, имеющий четыре строки и три столбца и найдите в нем максимальный по абсолютному значению элемент, а также определите номер строки и столбца, содержащие этот элемент

Const

m = 4; n = 3;

var

a: array[1 ... m, 1 ... n] of integer;

i, j, mi, mj, max: integer;

begin

Randomize;

for i : = 1 to m do

for j : = 1 to n do

a[i, j] : = random (100) - 50; / / случайные числа в интервале [-50 ... 50]

max : = - 100; / / меньше минимального из возможных

for i : = 1 to m do

for j : = 1 to n do

if max < abs (a[i, j]) then begin

max : = abs (a[i, j]) ; mi : = i; mj : = j

end;

writeln ('Исходный массив') ;

for i : = 1 to m do

begin

for j : = 1 to n do

write (a[i, j]:4) ;

writeln

end;

writeln ('Максимальный по модулю элемент:a (', mi, ',', mj, ') = ', max:3)

end.

Контрольный пример:

Исходный массив

10 30 30

24 - 11 28

-43 - 50 - 13

-8 21 5

Максимальный по модулю элемент:a (3,2) = 50