Будем считать, что вся матрица может быть размещена на экране.
Требования к программе вывода:
- на каждой строке экрана печатать не более чем 
элементов матрицы (например, 
);
- каждую строку матрицы начинать с новой строки экрана.
ConstMmax = 30; Nmax = 20;
Type Matrix = array[1..Mmax,1..Nmax] of real;
Vari,j,k,m,n : byte;
A : Matrix;
Begin
..................
For i:=1 to m do
Begin
k:=0;
For j:=1 to n do
Begin
Inc(k);
If k<5 then
Write(a[i,j]:7:2,' ')
Else
Begin
k:=0;
Writeln(a[i,j]:7:2);
End;
End;
If k>0 then Writeln;
End;
