Откроются ли порты при смене айпи адреса? ​

Var   a: array [0..9] of integer;   n, min,max: integer; begin   readln(n);   min: =9;   max: =0;   while (n > 0) do begin       inc(a[n mod 10]);       if n mod 10< min then min: =n mod 10;       if n mod 10> max then max: =n mod 10;           n : = n div 10;   end;   for n : = 0 to 9 do     if a[n] = 3 then writeln('в числе есть 3 одинаковые',n);   writeln('максимальная цифра ',max);   writeln('минимальная  цифра ',min);   end. тест для числа: 222778999 в числе есть 3 одинаковые 2 в числе есть 3 одинаковые 9 максимальная цифра 9 минимальная  цифра 2

Вот что получилось #include < iostream> #include < time.h> using namespace std; void main() {   setlocale(lc_all, "rus");   srand(time(null));   int mas[100],n,s1=0,s2=0;   cin> > n;   for(int i=1; i< =n; i++)   {     mas[i]=20 + rand() % 80;     if(mas[i]%2==0)     s2++;     else     s1++;   }   for(int i=1; i< =n; i++)       cout< < mas[i]< < " "; cout< < endl;   cout< < "не четные: "< < s1< < endl< < "четные: "< < s2< < endl;   system("pause");   }