program Project2;

{$APPTYPE CONSOLE}

var x:array[1..50,1..50]of real;
    c:array[1..50]of real;
    i,j,n:integer;
    s:real;
    ft1,ft2:text;
begin
s:=0;

assignfile(ft1,'d:\1test.txt');
reset(ft1);
readln(ft1,n);
for i:=1 to n do
read(ft1,c[i]);
readln(ft1);
for i:=1 to n do begin
for j:=1 to n do
read(ft1,x[i,j]);
readln(ft1);
end;

assignfile(ft2,'d:\2test.txt');
append(ft2);
writeln(ft2,'n=',n);
writeln(ft2,'Massiv C :');
for i:=1 to n do
write(ft2,c[i]:5:1);
writeln(ft2);
writeln(ft2,'Matrix :');
for i:=1 to n do begin
for j:=1 to n do
write(ft2,x[i,j]:5:1);
writeln(ft2);
end;

for i:=1 to n do begin
s:=s+x[i,i];
if x[i,i]=0 then
for j:=1 to n do
x[j,i]:=x[j,i]+c[j];
end;
closefile(ft1);

writeln(ft2,'Otvet :');
for i:=1 to n do begin
for j:=1 to n do
write(ft2,x[i,j]:5:1);
writeln(ft2);
end;
writeln(ft2,'Summa=',s:5:5);
closefile(ft2);
readln;
end.