Синформатикой . заранее большое ))

1а 2б 3в 4а5 5.22 надеюсь понятно

#include < stdio.h> #include < malloc.h> void func(int *mas, int n) {        int l=0, r=n-1, i;         while(l< r)        {                for(i=l; i< n; i++)                        if(mas[i]< 0)                                break;                 l=i;                 for(i=r; i> =0;                         if(mas[i]> =0)                                break;                   r=i;                 if(l< r)                  {                          int temp=mas[l];   mas[l]=mas[r]; mas[r]=temp;                   }          } }  int main() {int *mas, n, i; printf("n= "); scanf("%d", & n); mas=(int*) malloc(n*sizeof(int)); for(i=0; i< n; i++) {    printf("[%d]= ", i);       scanf("%d", & mas[i]); }func(mas, n); for(i=0; i< n; i++)    printf("%d ", mas[i]);       return 0; }

//pascal var   a: array [1 .. 5] of integer;   k, buf, i, j: integer;   arithmean: real; begin   for i : = 1 to 5 do   begin       write('a[', i, '] = '); readln(a[i]);       arithmean : = arithmean + a[i];   end;   for i : = 1 to 5 - 1 do   begin       k : = i;       for j : = i + 1 to 5 do           if a[j] < a[k] then k : = j;       buf : = a[i];       a[i] : = a[k];       a[k] : = buf;   end;   for i : = 1 to 5 do write(a[i]: 4);   writeln;   writeln('среднее арифметическое = ', (arithmean / 5): 0: 2); end.