Дан одномерный целочисленный массив порядка N. Удалить из него все положительные элементы. В каждый момент времени размер динамического массива должен совпадать с фактическим количеством элементов, хранящихся в нем. То есть при удалении элемента из массива необходимо уменьшить его размер на одну ячейку.

vvar a:array [1..10] of integer;                             //Эту

j,i,l,pr:integer;

begin                      //Для изменения диапозона надо менять 2 переменные. Они должны быть равны.

 i:=10;                                       // Эту

 for j:=1 to i do a[j]:=random(10);

 writeln ('Каким был массив:');

 writeln (a);

 for j:=1 to i-1 do

 begin

   if j mod 2=0 then inc(l) else continue;

   if l mod 2<>0 then begin  pr:=a[j-1]; a[j-1]:=a[j+1]; a[j+1]:=pr end;

 end;

 writeln ('Каким стал:');

 writeln (a);

end.

#include <iostream>

#include <cstdlib>

#include <math.h>

#include <time.h>

using namespace std;

int main()

{

system("chcp 1251 > null");

srand(time(0));

int n = 50; // Количество покупок

int z = 0; // Цена мороженого

int sum = 0;

cout << "Цены на мороженое на сегодня: \n";

for(int i = 0; i<n; i++){

   z = rand()%181+20;

   cout << "\n" << z << " рублей/гривен";

   sum = sum + z;

}

cout << "\n\nСума за день: " << sum;

}

оценить мои старания :З