Татьяна Владимировна

Program CPascal; uses crt;

const n_max=4; // Кол-во строк матрицы
      m_max=5; // Кол-во столбцов матрицы

type myint=integer;
     intarr=array [1..n_max,1..m_max] of myint; // Опишем наш тип для массива

var a,b:intarr; // Двумерный массив

// Процедура заполнения двумерного массива псевдослучайными числами
Procedure GenerateMatrix(var x:intarr; n:byte; m:byte);
var i,j:byte;
Begin
for i:=1 to n do
    for j:=1 to m do X[i,j]:=Random(51)-25;
end;

// Процедура вывода двумерного массива, а так же суммы строк...
Procedure OutPutMatrix(x:intarr; n:byte; m:byte; arrname:char);
var i,j:byte;
    sum:myint;
Begin
Writeln('Массив '+ArrName+':');
for i:=1 to n do
    Begin
    Sum:=0;
    for j:=1 to m do
        Begin
        if (X[i,j] > 0) then Inc(Sum,X[i,j]);
        Write(X[i,j]:4);
        end;
    Writeln('  ->  Сумма: ',Sum);
    end;
Writeln;
end;

// Основная программа...
Begin clrscr;
GenerateMatrix(A,n_max,m_max);
OutPutMatrix(A,n_max,m_max,#65);

GenerateMatrix(B,n_max,m_max);
OutPutMatrix(B,n_max,m_max,#66);
end.