var a: array [1..n, 1..n] of integer; i, j, min: integer;
begin Randomize; Writeln('*** Исходная матрица ***'); for i := 1 to n do begin for j := 1 to n do begin a[i, j] := Random(101) - 50; Write(a[i, j]:4) end; Writeln end; { Собственно, замена } for i := 1 to n do begin min := 32767; for j := 1 to n do if min > a[i, j] then min := a[i, j]; a[i, n - i + 1] := min end; { Результат } Writeln('*** Результирующая матрица ***'); for i := 1 to n do begin for j := 1 to n do Write(a[i, j]:4); Writeln end end.
2 - умножь на 3
1) 1 | 5 - 1 = 4
2) 1 | 4 - 1 = 3
3) 2 | 3 · 3 = 9
4) 2 | 9 · 3 = 27
5) 1 | 27 - 1 = 26
Последовательность: 11221