Опубликовано 22.08.2017 по предмету Информатика от Гость >> <<

Написать программу на Паскале, где пиксели рисунка закодированы числами (обозначающими цвет) в виде матрицы, содержащей N строк и M столбцов. Выполните отражение рисунка сверху вниз:

Ответ оставил Гость

//PascalABC.NET 3.1 сборка 1219
procedure PrintMatrix(a: array[,] of integer);
begin
    for var i := a.GetLowerBound(0) to a.GetUpperBound(0) do
    begin
        writeln;
        for var j := a.GetLowerBound(1) to a.GetUpperBound(1) do
            write(a[i, j], );
    end;
    writeln;
end;

begin
    var a := MatrixRandom(ReadInteger(n =), ReadInteger(m =), 0, 255);
    PrintMatrix(a);
    
    for var i := a.GetLowerBound(0) to (a.GetUpperBound(0) div 2) do
        for var j := a.GetLowerBound(1) to a.GetUpperBound(1) do
            swap(a[i, j], a[a.GetLowerBound(0) + a.GetUpperBound(0) - i, j]);
            
    PrintMatrix(a);
end.