Семантическая сеть во вложении
Program z1; Var a: array [1..100] of integer; n,i:integer; s:real; Begin write('Введите кол-во учеников - '); readln(n); for i:=1 to n do begin write ('Ученик №',i,', Оценка - '); readln(a[i]); end; s:=0; for i:=1 to n do begin s:=s+a[i]; end; s:=s/n; writeln('Средний балл - ',s);<span>End.</span>
Общее
Можно посылать текст
Можно посылать вложение типа фотографии, если хватает места/веса
Указывается адрес получателя и адрес отправителя
Может быть не доставлено из за неверного адреса или из за технических сбоев.
Можно перенаправить письмо
Дата прохождения через почтовую службу может служить подтверждением времени в различных спорах и разбирательствах
Возможно использовать шифрование
Плюсы бумажной почты
Письмо и вложения реальны и не требуют спец средств для прочтения
Очень разнообразные способы доставки - голубиная почта, курьерская почта и тд
Количество спама обычно меньше чем в электронной почте
Можно послать письмо без указания обратного адреса
Плюсы электронной почты
Скорость доставки
Бесплатно
Значительно легче шифровать/разшифровать, чем бумажную
Возможность получить подтверждение о получении, прочтении
Возможность настройки автоматического ответа (например если в отпуске)
Возможность отослать одно письмо множеству получателей
Копия отправленного письма остается у отправителя
Получить почту можно из любой точки интернета, а не в определенном месте (почтовый ящик)
Можно иметь множество электронных почтовых ящиков
Думаю этого хватит
Так как в задаче не требуется вводить числа с клавиатуры, то проще получать массив с помощью датчика. В этом случае диапазон (А,Б) нужно сильно уменьшить. Программа и пример работы - в прилагаемом файле.