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.
begin writeln('Введите значение Х'); readln(X); Randomize; for i := 1 to n do a[i] := random(100) - 50; // случайные числа в интервале [-50..50] s := 0; for i := 1 to n do if (a[i]) < X then s := s + abs(a[i]); writeln('Исходный массив'); for i := 1 to n do write(a[i]:4); writeln; writeln('Искомая сумма:', s:3) end.
