Паскаль .вычеркиватели. вычеркните из слова х буквы, стоящие на чётных местах.

Var s: string; i: integer; begin   read(s);   for i: =1 to length(s) do   begin     if (i mod 2=0) then delete(s,i,1);   end;   writeln(s); end.

Не совсем понятно условие, но вот возможное решение в c++ #include < iostream> #include < iomanip> #include < ctime> int main() {       using namespace std;       cout < < "enter n: ";       int n;       cin > > n;       int * a = new int[n];       srand(time(0));       for (int i = 0; i < n; ++i)             a[i] = rand() % n + 1;       for (int i = 0; i < n; ++i)             cout < < setw(4) < < a[i];       cout < < "\nenter k: ";       int k;       cin > > k;       int size = 0;       for (int i = 0; i < n; ++i)             if (a[i] < = k)                   ++size;       if (size > 0)       {             int * a1 = new int[size];             int i1 = 0;             for (int i = 0; i < n; ++i)                   if (a[i] < = k)                   {                         a1[i1] = a[i];                         ++i1;                   }             for (int i1 = 0; i1 < size; ++i1)                   cout < < setw(4) < < a1[i1];             delete[] a1;       }       else             cout < < "no elements" < < endl;       delete[] a;       cout < < endl;       return 0; }

Вc++ #include < iostream> #include < iomanip> #include < ctime> int main() {       using namespace std;       const int n = 5;       const int m = 5;       //создаём массив и как-нибудь заполняем       int a[n][m];       srand(time(0));       for (int i = 0; i < n; ++i)             for (int j = 0; j < m; ++j)                   a[i][j] = rand() % (n * m) + 1;             //выводим его на экран       for (int i = 0; i < n; ++i)       {             for (int j = 0; j < m; ++j)                   cout < < setw(4) < < a[i][j];             cout < < endl;       }       //меняем местами 2ю и 3ю строки       int temp = 0;       for (int j = 0; j < m; ++j)       {             temp = a[1][j];             a[1][j] = a[2][j];             a[2][j] = temp;       }       //выводим полученный массив на экран       cout < < "\n\n";       for (int i = 0; i < n; ++i)       {             for (int j = 0; j < m; ++j)                   cout < < setw(4) < < a[i][j];             cout < < endl;       }       return 0; }