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;beginwrite('ggg');for i:=1 to n do read(a[i]);for i:=1 to n-1 dofor j:=n downto

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;beginwrite('ggg');for i:=1 to n do read(a[i]);for i:=1 to n-1 dofor j:=n downto
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; 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;beginwrite('ggg');for i:=1 to n do read(a[i]);for i:=1 to n-1 dofor j:=n downto
program Noname0; ：程序名
const n=7; ；定义常量 n代表7
var a:array[1..n] of integer; ；定义变量 a为整数数组[1..n]
i,j,k,t:integer; ；i,j,k,t为整数型变量
begin ；程序起始处
write('ggg'); ：输出 ggg
for i:=1 to n do read(a[i]); ；for循环,依次读入 a[i]到a[n]
for i:=1 to n-1 do ；for循环 i每次加1,从1加到n-1
for j:=n downto i+1 do ；for循环 j每次减1,从n减到i+1
if a[j-1]