Вмассиве r (5x5) поменяйте местами первую и последнюю строки.

Program pr; uses crt; var mas: array[1..5, 1..5] of integer; n, i, j, buf: integer; begin n: =5;     writeln('введите элементы матрицы');         for i: =1 to n do                for j: =1 to n do                    readln(mas[i,j]);                   writeln();     writeln('исходная матрица');         for i: =1 to n do          begin            for j: =1 to n do                        write(mas[i,j], ' ');                       writeln();           end;         {объмен}          for j: =1 to n do              begin                  buf: =mas[n,j];                   mas[n,j]: =mas[1,j];                   mas[1,j]: =buf              end;                     writeln();     writeln('результирующая матрица');     for i: =1 to n do        begin              for j: =1 to n do                  write(mas[i,j], ' ');                     writeln();           end;         readln; end.

Дано  n=16 i= найти k-? решение  1) i=4  бит 2) мб*1024=64кб*1024= байт*8= бит 3) i=k*i   ответ : 16777216 символа