用穷举,FOR循环一写就出来了

自己试试吧

[em19][em19][em19]
不是吧,应该像杨辉三角那样,构造个数组,然后搜索一下吧!
那时有若干个的,FOR循环的次数不好弄呀.

用递归

我已做出[em1][em1][em1]

用2重循环~`~绝对good~~~
var a[1..100]of integer;
    i,j,k,l,n;integer
begin
  writeln('读入n个数');
  
  for i:=1 to n do read(a[i]);
  for j:=1 to n-1 do
    begin
       k:=0;
       for j:=i to n do
       begin
          k:=inc(k,a[j]);
          if k mod 11 =0 then for l:=i to j do write(a[l]:4);
       end;
end.

粗略的写了下  某些细节错了大家不要怨我哈`~~~呵呵~~注重方法嘛`

楼主加分呀~~~