Вопросы для самоконтроля: 1. Что такое Электронная почта? 2. Как формируется адрес пользователя электронной почты? 4. В каком текстовом поле указываются адреса получателей при отправке электронного письма?
а) Кому; б) Тема ; в) От кого; г) Файлы
5. Какие файлы можно посылать по электронной почте?
а) текстовые; б) графические; в) музыкальные; г) все перечисленные выше
6. Что означает .ru в адресе электронной почты?
7. Перечислите преимущества электронной почты.
9. Что такое почтовая программа?
10. Что такое почтовый сервер?
11. Назовите известные вам бесплатные почтовые серверы.
12. Какие поля в окне регистрации помечены звездочками?
13. Могут ли существовать:
а) два ящика с одинаковыми именами на одном почтовом сервере?
б) два ящика с одинаковыми паролями на одном почтовом сервере?
в) два ящика с одинаковыми именами на разных почтовых серверах?
г) два ящика с одинаковыми именами и паролями на разных почтовых серверах?
13. Что такое спам?

var

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

  i: integer;

begin

  randomize;

  writeln('сгенерированный массив: ');

  for i : = 1 to 12 do

  begin

      a[i] : = random(36) - 15;

      write(a[i], ' ');

  end;

  writeln;

end.

//вторая программа

const

  n = 8;

var

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

  i, count3, count4, count5: integer;

begin

  randomize;

  writeln('оценки учеников: ');

  for i : = 1 to n do

  begin

      a[i] : = random(3) + 3;

      write(a[i], ' ');

      if a[i] = 5 then

          inc(count5);

      if a[i] = 4 then

        inc(count4);

      if a[i] = 3 then

          inc(count3);

  end;

  writeln;

  writeln('троек - ', count3);

  writeln('четверок - ', count4);

  writeln('пятерок - ', count5);

end.

//третья программа

var

  k: array[1..12] of integer;

  i: integer;

begin

  randomize;

  writeln('сгенерированный массив: ');

  for i : = 1 to 12 do

  begin

      k[i] : = random(36) - 15;

      write(k[i], ' ');

  end;

  writeln;

  writeln('преобразованный массив: ');

  for i : = 1 to 12 do

  begin

      k[i] : = k[i] * (-1);

      write(k[i], ' ');

  end;

end.