首页 > 试题广场 >

var a : array[1..6] of longi

[填空题] 
var
  a : array[1..6] of longint = (1, 2, 3, 4, 5, 6);
  pi, pj, t, i : longint;
begin
  pi := 1;
  pj := 6;
  while pi < pj do
  begin
    t := a[pi];
    a[pi] := a[pj];
    a[pj] := t;
    inc(pi);
    dec(pj);
  end;
  for i := 1 to 6 do
    write(a[i], ',');
  writeln;
end.

输出：1
查看答案及解析
添加回答

这道题你会答吗？花几分钟告诉大家答案吧！

提交观点

问题信息

普及 Pascal 完善程序-Pascal 数学
上传者：牛客309901号
难度：
0条回答 715浏览

热门推荐

相关试题

扫一扫，把题目装进口袋

求职之前，先上牛客

扫描二维码，进入QQ群

扫描二维码，关注牛客公众号