Сна с#. нужно отсортировать окантовку всей матрицы, начиная с верхнего левого угла по часовой стрелке.

Program project2;   {$apptype console} uses  sysutils; var a: array [0..9] of integer;     i,max,indx,tmp: integer; begin    randomize;     for i: =0 to 9 do    a[i]: =random(10);       for i: =0 to 9 do    write(a[i]: 3);     writeln;     max: =a[0];     indx: =0;     for i: =0 to 9 do    if a[i]> max then    begin      max: =a[i];       indx: =i;     end;     tmp: =a[0];   a[0]: =max;   a[indx]: =tmp;   for i: =0 to 9 do     write(a[i]: 3);   readln; end.

1) var a: array [1..40] of integer;     i, s1, s2: integer; begin       for i : = 1 to 40 do       begin           a[i] : = random(20);           writeln('a[', i, '] => ', a[i]);           if (a[i] mod 2 = 1) then           begin                 s1 : = s1 + a[i];                 inc(s2);           end;       end;       writeln(s1 / s2); end.2)var a: array [1..40] of integer;     i, q: integer; begin      for i : = 1 to 40 do      begin          a[i] : = random(20);           writeln('a[', i, '] => ', a[i]);           if (a[i] < = 10) then q : = q + a[i];       end;       writeln(q); end.3)var a: array [1..40] of integer;     i, w: integer; begin      for i : = 1 to 40 do      begin          a[i] : = random(20);           writeln('a[', i, '] => ', a[i]);           if (a[i] mod 3 = 0) then w : = w + a[i];       end;       writeln(w); end.