// PascalABC.NET 3.4, сборка 1767 от 27.08.2018
// Внимание! Если программа не работает, обновите версию!
uses GraphABC;
procedure ColorPrint(a: array[,] of integer);
begin
var s := a.ElementsByRow;
var (min, max) := (s.Min, s.Max);
var DefColor := FontColor;
font.Name := 'Courier New';
for var i := 0 to a.RowCount - 1 do
begin
for var j := 0 to a.ColCount - 1 do
if a[i, j] = min then
begin
Font.Color := clRed;
Write(a[i, j]:4);
Font.Color := DefColor
end
else
if a[i, j] = max then
begin
Font.Color := clGreen;
Write(a[i, j]:4);
Font.Color := DefColor
end
else Write(a[i, j]:4);
Writeln
end
end;
begin
var a := MatrRandom(5, 5, -10, 10);
ColorPrint(a)
end.
746=1011101010 в 2-ой с.с.
746=1352 в 8-ой с.с.
1. Числа уменьшаются сначала на 1, потом на 2:
25 24 22 21 19 18 16 15 13 12 10 9 7 6 4 3 1 0.
2. Числа увеличиваются на нечётные:
1 4 9 16 (+9) 25 (+11) 36 (+13) 49 (+15) 74.