Program array2d; var v_range, v_neg, i, j, n: integer; array: array of array of integer; i_range, i_neg: array[1..2] of integer; begin randomize; write('введіть n: '); readln(n); SetLength(array, n, n); write('введіть а та b: ); readln(a, b); for i:= 1 to n do for j:= 1 to n do array(i, j) := random(100); for i:= 1 to n do for j:= 1 to n do begin if array(i, j) in a..b then begin if Assigned(v_neg) then break; {перевірка, чи є негативне значення знайденим} v_range := array(i, j); i_range[1] := i; i_range[2] := j; end; if array(i, j) < 0 then begin if Assigned(v_range) then break; v_neg := array(i, j); i_neg[1] := 1; i_neg[2] := 2; end; end; if Assigned(v_range) and Assigned(v_neg) then begin array(i_range[1], i_range[2]) := v_neg; array(i_neg[1], i_neg[2]) := v_range; end; writeln('Виконано.'); end.
Відповідь:
Число 6310 невозможно представить в беззнаковом 8-разрядном формате из-за нехватки разрядов