5. Как правильно воспроизводить объект при печати?АСверху внизБСнизу вверхВ)из стороны в сторонуГ)не важноДв зависимости от формыE) в зависимости от материала​

program n_2;

var i: integer;

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

begin

 randomize;

 for i:=1 to 10 do

   a[i]:=random(100);

 for i:=1 to 10 do

   write(a[i],' ');

end.

Вычисление суммы элементов массива

program  n_3;

 var s, i: integer;

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

begin  

 s:=0;

 randomize;

 for i:=1 to 10 do a[i]:=random(100);

 for i:=1 to 10 do write (a[i],' ');

 for i:=1 to 10 do s:=s+a[i];

 writeln('s=', s)

end.

Вычисление суммы элементов массива

[Используем операторные скобки и всё (ввод, вывод, обработку) делаем в одном цикле]

program  n_3_1;

 var s, i: integer;

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

begin  

 s:=0;

 randomize;

 for i:=1 to 10 do

    begin  

       a[i]:=random(100);

       write(a[i],' ');

       s:=s+a[i]

    end;

 writeln('s=', s)

end.

Программа поиска наибольшего элемента в массиве

program  n_4;

 var i, imax: integer;  

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

begin  

 randomize;

 for i:=1 to 10 do a[i]:=random(100);

 for i:=1 to 10 do write(a[i],' ');

 imax:=1;

 for i:=2 to 10 do

   if a[i]>a[imax] then

      imax:=i;

 write('Наибольший элемент   a[', imax, ']=', a[imax])

end.

Поиск элемента, равного 50

program  n_5;

var   n, i: integer;  

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

begin  

 randomize;

 for i:=1 to 10 do a[i]:=random(100);

 for i:=1 to 10 do write(a[i],' ');

 n:=0;

 for i:=1 to 10 do

   if a[i]=50 then

      n:=i;

 if n=0 then

    write('Нет')

 else

    write(n)

end.

Поиск элемента, равного 50

program  n_5_1;

 var n, i: integer;  

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

begin  

 randomize;

 for i:=1 to 10 do a[i]:=random(100);

 for i:=1 to 10 do write(a[i],' ');

 i:=0;

 repeat

   i:=i+1;

 until (a[i]=50) or (i=10);

 if a[i]=50 then

   write(i)  

 else  

   write('Нет')

end.

Для подсчета вводится переменная, значение которой увеличивается на единицу каждый раз, когда найден нужный элемент.

program  kolich;

var   k, i: integer;  

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

begin  

 randomize;

 for i:=1 to 10 do a[i]:=random(100);

 for i:=1 to 10 do write (a[i],` `);

 k:=0;

 for i:=1 to 10 do

   if a[i]>50 then

      k:=k+1;

 write('k=', k)

end.

Сумма значений элементов, удовлетворяющих условию

program  sum ;

var   s, i: integer;  

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

begin  

 randomize;

 for i:=1 to 10 do

   a[i]:=random(100);

 for i:=1 to 10 do

   write (a[i],` `);

 s:=0;

 for i:=1 to 10 do

   if (a[i]>10) and (a[i]<30) then

     s:=s+a[i];

 write('s=', s)

end.

Сортировка массива

program sort;

var   n, i, j, x, imax: integer;

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

begin

 for i:=1 to 10 do read (a[i]);

 for i:=1 to 10 do write (a[i], ' ');

 for i:=1 to 9 do

 begin

   imax:=i;

   for j:=i+1 to 10 do

     if a[j]>a[imax] then

       imax:=j;

   x:=a[i];

   a[i]:=a[imax];

   a[imax]:=x

 end;

 for i:=1 to 10 do

   write(a[i], ' ')

end.

Возведение числа в любую степень.

program calc_stepen;

var

 a, b, h, i: integer;

 c: real;

begin

 b := 1;

 readln( a, h);

 for i := 1 to abs(h) do

   b := b * a;

 if h < 0 then

   c := 1 / b

 else

   c := b;

 writeln( c:3:5 );

end.

Определение гласных и согласных букв:

program alfabet;

var

 s: char;

begin

 read(s);

 case s of  

   'а','е','ё','и','о','у','ы','э','ю','я': writeln('гласные');

   'б','в','г','д','ж','з','й','к','л','м','н','п','р','с','т','ф','х','ц','ч','ш','щ': writeln('согласные');

   

 else

   writeln('знаки');

 end;

end.

Объяснение:

1)Электронное письмо состоит из следующих частей: 

* Заголовков SMTP-протокола, полученных сервером. Эти заголовки могут включаться, а могут и не включаться в тело письма в дальнейшем, так что возможна ситуация, когда сервер обладает большей информацией о письме, чем содержится в самом письме. Так, например, поле RCPT TO указывает получателя письма, при этом в самом письме получатель может быть не указан. Эта информация передаётся за пределы сервера только в рамках протокола SMTP, и смена протокола при доставке почты (например, на узле-получателе в ходе внутренней маршрутизации) может приводить к потере этой информации. В большинстве случаев эта информация не доступна конечному получателю, который использует не-SMTP протоколы (POP3, IMAP) для доступа к почтовому ящику. Для возможности контролировать работо системы эта информация обычно сохраняется в журналах почтовых серверов некоторое время. 
* Самого письма (в терминологии протокола SMTP — 'DATA'), которое, в свою очередь, состоит из следующих частей, разделённых пустой строкой: 
* Заголовков письма, иногда называемых по аналогии с бумажной почтой конвертом (англ. envelope). В заголовке указывается служебная информация и пометки почтовых серверов, через которые письмо, пометки о приоритете, указание на адрес и имя отправителя и получателя письма, тема письма и другая информация. С термином «конверт» есть некоторая путаница, потому что в зависимости от ситуации «конвертом» называют либо заголовок письма, либо информацию, которой располагает SMTP-сервер после получения письма (так, например, в документации к почтовому серверу postfix, термин «конверт» используется в отношении SMTP-данных, включающих не только поля RCPT TO и MAIL FROM, но и IP-адрес отправителя, его строчка HELO и т. д. ) 
* Тела письма. В теле письма находится, собственно, текст письма. Согласно стандарту, в теле письма могут находиться только символы ASCII. Поэтому при использовании национальных кодировок или различных форм представления информации (HTML, RTF, бинарные файлы) текст письма должен кодироваться по стандарту MIME и не может быть прочитан человеком без использования декодера или почтового клиента с таким декодером.
2)Телеконференция -это, прежде всего общения большого числа пользователей сети, интересующихся определенной темой. Таких тем может быть неограниченное количество. К примеру, rec.arts.books - название телеконференции, посвященной вопросам искусства и литературы, а sci.econ - проблемам экономики. 

Основным достоинством является возможность получения практически любой информации в достаточно короткие сроки. Телеконференции могут быть не только интерактивными, реализуемыми в режиме on-line, но и вестись с любой задержкой, то есть осуществляться в режиме off-line. 

Надеюсь понятно? 
а отличается тем что в эл. сообщениях нельзя видеть человека.