Program File_2; uses crt;

type matrix=array [1..50,1..50] of integer; {Описываем тип для матрицы}
     vector=array [1..50] of integer; {Описываем тип для вектора}

var a:matrix;
    b:vector;
    i,j,n:byte;

{----- Генерируем матрицу Start -----}
Procedure GenerateMatrix(var x:matrix; n:byte);
var i,j:byte;
Begin
for i:=1 to n do
    for j:=1 to n do
        Begin
        X[i,j]:=Random(11);
        X[i,j]:=X[i,j]-5;
        end;
end;
{----- Генерируем матрицу End -----}

{----- Выводим матрицу на экран Start -----}
Procedure OutPutMatrix(x:matrix; name:string; n:byte);
var i,j:byte;
Begin
Writeln(' Матрица ' +Name+ ': ');
for i:=1 to n do
    Begin
    for j:=1 to n do Write(X[i,j]:3);
    Writeln;
    end;
end;
{----- Выводим матрицу на экран End -----}

{----- Составляем вектор Start -----}
Procedure SumSTMatrix(x:matrix; var sum:vector; n:byte);
var i,j:byte;
    status:boolean;
Begin
for i:=1 to n do
    Begin
    Sum[i]:=0; {Начальное значение суммы}
    Status:=False;
    for j:=1 to n do
        Begin
        if Status then Sum[i]:=Sum[i]+X[i,j]; {Суммируем}
        if (X[i,j] < 0) then Status:=True; {Первое отрицательное}
        end;
    if not Status then Sum[i]:=100;
    end;
end;
{----- Составляем вектор End -----}

{----- Выводим вектор на экран Start -----}
Procedure OutPutVector(x:vector; name:string; n:byte);
var i:byte;
Begin
Writeln(' Вектор ' +Name+ ': ');
for i:=1 to n do Write(X[i]:4);
Writeln;
end;
{----- Выводим вектор на экран End -----}

Begin clrscr;
Randomize;
Write('--------------------------------------------------------------------------------');
Write(' Введите порядок матрицы: '); Readln(N);
Write('--------------------------------------------------------------------------------');
GenerateMatrix(A,N);
OutPutMatrix(A,#65,N);
Write('--------------------------------------------------------------------------------');
SumSTMatrix(A,B,N);
OutPutVector(B,#66,N);
Write('--------------------------------------------------------------------------------');
GotoXY(15,WhereY); Writeln('Для выхода из программы нажмите клавишу "Enter"');
Write('--------------------------------------------------------------------------------');
Readln;
end.