Сервер DNS устанавливает соответствие между IP-адресами и доменными именами компьютеров в сети?

#include <iostream>
#include <conio.h>
using namespace std;

int main()
{
    setlocale(LC_ALL,"Russian");
    const int N=7;
    int A[N];
    cout << "Введите массив, состоящий из " << N << " элементов:\n";
    for (int i=0; i<N; i++)
        cin >> A[i];
    cout << "Массив до - ";
    for (int i=0; i<N; i++)
    {
        cout << A[i] << " ";
        if (A[i]*A[i] < 25) A[i] *= 2;
    }
    cout << "\nМассив после - ";
    for (int i=0; i<N; i++)
        cout << A[i] << " ";
    _getch();
    return 0;
}

Microsft Visual C++ 2010

Программы на языке Pascal.

Ввод элементов массива с клавиатуры:

program a;

const N=10;

var m: array [1..N] of integer;

   i, max: integer;

begin

 max:= -32768;

 for i:= 1 to N

   do begin

        readln(m[i]);

        if(m[i]>max)

          then max:= m[i];

      end;

 writeln(max);

end.

Заполнение массива случайными числами:

program a;

const N=10;

var m: array [1..N] of integer;

   i, max: integer;

begin

 randomize;

 max:= -32768;

 for i:= 1 to N

   do begin

        m[i]:= random(-32768, 32767);

        if(m[i]>max)

          then max:= m[i];

      end;

 writeln(max);

end.