PASCAL ABC NET У пользователя запрашивается длинна массива, далее генерируется массив из вещественных чисел, для которой определяются 2 пользовательские функции:
1.вычисляет квадраты всех элементов массива, и формирует 2 массив.
2.вычисляет среднее геометрическое для всех выражений

1.                                                                    

program raf105;

const

 n = 5;

var

 a:array[1..n] of integer;

 x, counter, i: integer;

begin

writeln('Заполните массив:');

for i:=1 to n do

 readln(a[i]);

write('Введите значение элемента, который нужно удалить: ');

readln(x);

for i:=1 to n do

begin

 if counter > 0

   then a[i-counter]:= a[i];

 if (a[i] = x) and (counter < 1)

   then counter:= counter + 1;

end;

writeln('Вывод:');

for i:=1 to n-counter do

 writeln(a[i]);

end.

2.                                                                    

program raf105;

const

 n = 5;

var

 a:array[1..n] of integer;

 x, counter, i: integer;

begin

writeln('Заполните массив:');

for i:=1 to n do

 readln(a[i]);

write('Введите значение элемента, который нужно удалить: ');

readln(x);

for i:=1 to n do

begin

 if counter > 0

   then a[i-counter]:= a[i];

 if a[i] = x

   then counter:= counter + 1;

end;

writeln('Вывод:');

for i:=1 to n-counter do

 writeln(a[i]);

end.

Язык PascalABC

Сайт, или веб-сайт (от англ. website: web — «паутина, сеть» и site — «место», буквально «место, сегмент, часть в сети»), также веб-узел, — одна или несколько логически связанных между собой веб-страниц; также место расположения контента сервера. Обычно сайт в Интернете представляет собой массив связанных данных, имеющий уникальный адрес и воспринимаемый пользователями как единое целое. Веб-сайты называются так, потому что доступ к ним происходит по протоколу HTTP[1].

Социальная сеть — онлайн-платформа, которая используется для общения, знакомств, создания социальных отношений между людьми, которые имеют схожие интересы или офлайн-связи, а также для развлечения (музыка, фильмы) и работы.