Дан двумерный массив a, размером (n´n)(или квадратная матрица а найти среднее арифметическое положительных элементов, верхней треугольной матрицы, расположенной выше главной диагонали,

Паскаль uses crt; var a: array[1..100,1..100] of integer;     x,y,sum,k,n: integer; begin       write('введите n: ');       readln(n);       clrscr;       for x: =1 to n do begin           for y: =1 to n do begin               a[x,y]: =random(21)-10;               write(a[x,y]: 4);           end;           writeln;       end;       k: =0;       sum: =0;       for x: =1 to n do           for y: =x+1 to n do               if a[x,y]> 0 then begin                 sum: =sum+a[x,y];                 inc(k);               end;       writeln;       if k< > 0 then write(sum/k: 4: 2); end.

//dev-c++ (c) #include < stdio.h> #define n 5 int main(void)   {int array[n],newele,point,boo;   point=-1;   boo=1;   for(int i=0; i< n-1; i++)   {scanf("%d",& array[i]);   if((array[i]< 0)& & (boo)){     point=i;     boo=0; }   }   if(point==-1) printf("no negative elements");   else   {scanf("%d",& newele);   for(int i=n-2; i> =point;     array[i+1]=array[i];   array[point]=newele;   for(int i=0; i< n; i++)   printf("%d ",array[i]); }   return 0; } пример ввода: 1 -2 3 4 5 пример вывода: 1 5 -2 3 4

Var a: array[1..999] of integer; begin     for var i : = 1 to 100 do begin         a[i] : = random(1, 100);         write(a[i] + ' ');     end;     writeln;     for var i : = 1 to 100 do begin         if a[i] mod 7 = 0 then             a[i] -= a[100];         write(a[i] + ' ');     end; end.