Дайте определение терминов:

1. Электронная доска объявлений.
2. База данных –
3. Веб-сайт
4. Видеоконференция
5. Вебинар
6. Виртуальная аудитория
7. Гиперссылки
8. Интерактивность
9. Интерфейс
10. Контент
11. Логин
12. Портфолио
13. Скриншот
14. Теги
15. Хост
16. Чат

1)
var  massive :
 array [1..100] of integer;
 i : integer;
begin   
 // рандомизируем сид   
 randomize(); 
 for i := 1 to 100 do begin   
 // заполняем массив случайными числами от -100 до 100   
 massive[i] :=  random(201)-100 ;   
 // выводим число, если оно больше нуля и кратно двум. 
 if ((massive[i] > 0) and (massive[i]  mod 2 = 0))   
  then write(massive[i]+' '); 
 end; 
end.

2)
var  a :
 array [1..50] of integer;
 i ,summ: integer; 
begin   
 // рандомизируем сид   
 randomize();   
 // инициализируем переменную суммы   
 summ := 0; 
 for i := 1 to 50 do begin   
  // заполняем массив случайными числами от -100 до 100 
  a[i] := random(201)-100 ;   
  // суммируем если кратно трем   
  if a[i]  mod 3 = 0    then begin summ := summ + 1;  write(a[i] + ' '); end; 
 end; 
 // выводим результат 
 writeln(); 
 writeln('Сумма чисел кратных трем = ' + summ); 
end.

//PascalABC.NET версия 3.3.1590 от 03.12.2017
//Если программа не запускается, то обновите версию

uses GraphABC;
const
    x_min = -15.0;
    x_max = 15.0;
    dx = 0.01;

function f(x: real): real;
begin
    f := 2*x;
end;

begin
    //настраиваем размер окна под график, влияет на маштаб
    Window.Width := 1000;
    Window.Height := 300;
    
    Window.IsFixedSize := True; // фиксируем размеры окна
    Coordinate.Origin := Window.Center; //выставляем начало координат в центр окна
    Coordinate.SetMathematic; //выставляем направление осей как в математике принято
    var scale := Window.Width / (x_max - x_min); // вычисляем маштаб
    
    var x := x_min;
    var y_max := f(x_max); // подставляем реальные значения
    var y_min := f(x_min); // подставляем реальные значения
    
    repeat
        try
            var y := f(x);
            if y > y_max then y_max := y;
            if y < y_min then y_min := y;
        finally
            x := x + dx;
        end;
    until x > x_max;
    
    //  оси координат, стрелочки сами если надо
    Pen.Color := clSilver;
    Line(round((x_min - 1) * scale), 0, round((x_max + 1) * scale), 0);
    Line(0, round((y_min - 1) * scale), 0, round((y_max + 1) * scale));
    Circle(0, round(1 * scale), 1); //единичная метка
    Circle(round(1 * scale), 0, 1); //единичная метка
    
    x := x_min;
    repeat
        try
            var y := f(x);
            PutPixel(round(x * scale), round(y * scale), clBlueViolet);
        finally
            x := x + dx;
        end;
    until x > x_max;
end.