romatr1.pas

来自「This ar the basic programs that i did in」· PAS 代码 · 共 23 行

program matrice1;
var a:array[1..50,1..50] of integer;
    n,i,j,s,k,m:integer;
    f:text;
begin
write('n=');readln(n);
for i := 1 to n do
     for j:= 1 to n do
                    begin
                    write('a[',i,',',j,']=');
                    readln(a[i,j]);
                    end;
i:=0;j:=1;s:=0;
repeat
m:=n;
i:=i+1;
j:=j+1;
m:=m-1;
for k:=j to m do s:=s+a[i,k];
until (m-j=0) or (m-j=1);
write(s);
end.