// Pascal ABC.NET

const
    N = 5;

var
    a : array[1..N, 1..N] of integer;

procedure print();
begin
    for var i := 1 to N do begin
        for var j := 1 to N do
            write(a[i,j], ' ');
        writeln();
    end;
end;

var
    sum, maxSum, imax : integer;
    
begin
    randomize;
    sum := 0; maxSum := 0;
    imax := 1;
    for var i := 1 to N do begin
        for var j := 1 to N do begin
            a[i,j] := random(-100, 100);
            sum += a[i,j];
        end;
        if sum > maxSum then begin
            maxSum := sum;
            imax := i;
        end;
        sum := 0;
    end;
    print();
    writeln('Максимальная сумма в строке ', imax);
end.