Question

PascalABC.Создать целочисленный массив на 5 строк и 5 столбцов,заполнить его случайными числами в пределе от -10 до 10 и вывести на экран с отображением максимальных элементов массива зеленым цветом,и минимальных-красным

Answer 1

// 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.