下载后可任意编辑1、程序PROGRAM EX1;VAR n,i,j,k:integer;BEGIN write('Enter n : '); readln(n); for i:=1 to n do begin for j:=1 to n do begin if i>=j then k:=j else k:=i; write(k:4) end; writeln endEND.Enter n : 7输出：1 1 1 1 1 1 11 2 2 2 2 2 21 2 3 3 3 3 31 2 3 4 4 4 41 2 3 4 5 5 51 2 3 4 5 6 61 2 3 4 5 6 72、程序PROGRAM EX2;VAR n,i,j,k,mi,ma:integer;BEGIN write('Enter n :'); readln(n); for i:=1 to n do begin if i>=n+1-i then ma:=i else ma:=n+1-i; mi:=n+1-ma; k:=1; for j:=1 to n do begin write(k:4); if j=ma then k:=k-1; end; writeln end下载后可任意编辑END.Enter n : 7输出：1 1 1 1 1 1 11 2 2 2 2 2 11 2 3 3 3 2 11 2 3 4 3 2 11 2 3 3 3 2 11 2 2 2 2 2 11 1 1 1 1 1 13、程序PROGRAM EX3;VAR n,i,j,r,c,k,m:integer;BEGIN write('Enter n : '); readln(n); for i:=1 to n do begin for j:=1 to n do begin if i+j<=n+1 then k:=(i+j-2)*(i+j-1) div 2+i else begin r:=n+1-i; c:=n+1-j; k:=n*n+1-(r+c-2)*(r+c-1) div 2-r end; write(k:4) end; writeln endEND.Enter n : 7输出：1 2 4 7 11 16 223 5 8 12 17 23 296 9 13 18 24 30 3510 14 19 25 31 36 4015 20 26 32 37 41 4421 27 33 38 42 45 4728 34 39 43 46 48 494、程序下载后可任意编辑PROGRAM EX4;VAR a:array[1..20,1..20]of integer; n,i,j,r,c,k:integer;BEGIN write('Enter n : '); readln(n); for i:=1 to n do begin for j:=1 to n do begin if i+j<=n+1 then k:=(i+j-2)*(i+j-1)div 2+(i+j)mod 2*i+(i+j-1)mod 2*j else begin r:=n+1-i; c:=n+1-j; k:=n*n+1-(r+c-2)*(r+c-1)div 2-(r+c)mod 2*r-(r+c-1)mod 2*c; end; write(k:4); end; writeln endEND.Enter n : 6输出：1 2 6 7 15 163 5 8 14 17 264 9 13 18 25 2710 12 19 24 28 3311 20 23 29 32 3421 22 30 31 35 365、程序PROGRAM EX5;VAR n,i,j,k,c,s,d:integer;BEGIN write('Enter n : '); readln(...
