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

259

263

Посмотреть ответы 2

Ответы на вопрос:

babikahenjudzao

Информатика

4,6(59 оценок)

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