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.
12
Объяснение:
Сработает это:
if s % 2 != 0:
s = s - 1
k = s / 2
если s (s=25) % (деление по модулю) 2 != (не равняется) 0: (то)
s = s - 1 (теперь s = 24 - чётное число)
k = s / 2 (s = 24, 24 делится на 2 и получается 12)
else: (этот блок не выполняется в нашем случае)
k = s
print(k) (вывод значения k (12))
Объяснение: