Составьте программу удаления элементов одномерного массива a(n), больших заданного числа k в паскале abc

Не совсем понятно условие, но вот возможное решение в 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; }

Для построения с компьютера сложных чертежей в системах автоматизированного проектирования используют графопостроитель.