Для каких целей предназначена информационная система www?

Чтобы передавать информацию разного рода между удаленными устройствами связи

Const   n = 10; var   x: array[1..n] of integer;   i, s: integer; begin   randomize;   writeln('элементы массива');   s : = 0;   for i : = 1 to n do   begin       x[i] : = random(101) - 50;       write(x[i]: 4);       if x[i] < 0 then s : = s + x[i]   end;   writeln;   writeln('сумма отрицательных элементов равна ', s); end. тестовое решение: элементы массива   50  36    5 -13  19  -3  50  -5 -39  12 сумма отрицательных элементов равна -60

Var   r, r2, x, y: real;   n: integer; begin   write('введите величину радиуса окружности: '); readln(r);   r2 : = sqr(r); n : = 0;   {1. точки в первой четверти без учета попавших на оси }   x : = 1;   while x < = r do   begin       y : = 1;       while y < = r do       begin           if sqr(x) + sqr(y) < = r2 then n : = n + 1;           y : = y + 1       end;       x : = x + 1   end;   n : = 4 * n; { учли точки в остальных трех четвертях }   n : = n + 1; { учли точку в начале координат }   n : = n + 4 * trunc(r); { учли точки, находящиеся на координатных осях }   writeln('число точек, принадлежащих кругу, равно ', n); end. тестовое решение: введите величину радиуса окружности: 3 число точек, принадлежащих кругу, равно 29