program m2_enter;
uses crt;
var i,j,m,n:integer;
a:array [1..100,1..100] of real;
begin
clrscr;
write('Введите размер матрицы (m,n): ');
readln(m,n);
writeln('Введите массив:');
{************** Ввод матрицы ************************************************}
for i:=1 to m do
for j:=1 to n do read(a[i,j]);
{****************************************************************************}
{************** Вывод матрицы ***********************************************}
for i:=1 to m do
begin
for j:=1 to n do write(a[i,j]:0:2,' ');
writeln
end;
{****************************************************************************}
end.
               (
geocities.com/tphelp)