Дан массив a(n). у нечётных элементов отбросить дробную часть числа, а у элементов с индексами, остаток 1 при делении на 3, отбросить целую часть числа.

//pascalabc.net 3.1 сборка 1219 begin       var a : = arrrandomreal(readinteger('n='), 0, 9);       println(a);       for var i : = low(a) to high(a) do       begin               if i mod 2 = 1 then a[i] : = trunc(a[i]);               if i mod 3 = 1 then a[i] : = frac(a[i]);       end;       println(a); end.

Вc++ работает этот код. других языков практически не знаю. #include < iostream> int main() {       using namespace std;       const int n = 8;       double arr[n] = { 122.3, 11.4, -34.2, 17.8, -25.5, -54, 34, -43};       for (int i = 0; i < n; ++i)             cout < < arr[i] < < "  ";       cout < < endl;       double max, min;       for (int i = 0; i < n; ++i)       {             if (arr[i] < 0)             {                   int inegmax = i;                   for (int j = i; j < n; ++j)                         if (arr[j] < 0)                               if (arr[j] > = arr[inegmax])                                     inegmax = j;                   max = arr[inegmax];                   arr[inegmax] = arr[i];                   arr[i] = max;             }             else             {                   int iposmin = i;                   for (int j = i; j < n; ++j)                         if (arr[j] > = 0)                               if (arr[j] < arr[iposmin])                                     iposmin = j;                   min = arr[iposmin];                   arr[iposmin] = arr[i];                   arr[i] = min;             }       }       for (int i = 0; i < n; ++i)             cout < < arr[i] < < "  ";       cout < < endl;       return 0; }