uses
    ob, obrabotki;
var
   masA:massiv;
   n,m:integer;
begin
     write('Введите количество строк:');
     readln(n);
     write('Введите количество столбцов:');
     readln(m);
     vvod(masA, n, m, -15);
     vivod(masA, n, m);
     Perotric(masA, n, m);
end.

procedure vvod (var ma:massiv; an,am:integer; otric:integer);
begin
     randomize;
         for i:=1 to an do
         for j:=1 to am do ma[i,j]:= random(50)+otric;
end;
procedure vivod (var ma:massiv; an,am:integer);
begin
     for i:=1 to an do
     begin
     for j:=1 to am do write(ma[i,j]:4);
     writeln;
end;
end;