rosud.pas

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

program sud;
var f:text;
    a:array[1..100,1..100] of integer;
    i,j,n,s:integer;
begin
assign(f,'txt5.txt ');
reset(f);
readln(f,n);
for i:= 1 to n do
    for j:=1 to n do
           read(f, a[i,j]);
close(f);
s:=0;
for i := n downto (n div 2) do
    for j :=i+1to (n-i) do
    s:=s+a[i,j];
    write('s=',s);
readln;
end.