program Noname0; const n=7; var a:array[1..n] of integer; i,j,k,t:integer; begin write('ggg'); for
问题描述：
program Noname0; const n=7; var a:array[1..n] of integer; i,j,k,t:integer; begin write('ggg'); for
program Noname0;
const n=7;
var a:array[1..n] of integer;
i,j,k,t:integer;
begin
write('ggg');
for i:=1 to n do read(a[i]);
for i:=1 to n-1 do
for j:=n downto i+1 do
if a[j-1]
答
program Noname0; ：程序名const n=7; ；定义常量 n代表7var a:array[1..n] of integer; ；定义变量 a为整数数组[1..n]i,j,k,t:integer; ；i,j,k,t为整数型变量begin ；程序起始处write('ggg'); ：输出 gggfor i:=1 ...