Общение в интернете весьма разнообразно на данный момент.
Электронная почта - самый базовый вид общения. Без нее в интернете никуда, ведь она требуется для большенства регистраций на всевозможных сайтах и ресурсах. А так же является простым и удобным обмена информацией и файлами, а так же хранения онных. Правда, чтоб написать кому-то, вам надо знать его электронный адрес
Чаты быстрого обмена короткими текстовыми сообщениями с одним и более людьми, как знакомыми так и нет.
Instant Messengers (ICQ,Jabber,MNS,Skype,...) - гибрид электронной почты и чата. Быстрый обмен короткими текстовыми сообщениями с уже знакомым собеседником или с тем кому вы дали свой номер для связи. Так же позднее добавилась возможность обмена файлами, голосовое и видео общение, но основной принцип все тот же.
Блоги, форумы, дневники - опять таки гибрид электронной почты и чата. Тут уже сообщения не короткие, как раз надо изложить информацию как можно более удобно для чтенья, добавить картинки, видео, музыку. А увидеть ваши опусы может кто-угодно и даже имеет возможность оставить обстоятельный комментарий
Социальные сети (Vk,Odnoklassniki,Facebook,...) - это некий вариант IM, который хочет с вас снять завесу анонимности. Тут вы можете искать людей, с которыми уже сталкивались в реальной жизни и общаться с ними. Как более поздний вариант общения, старается обьеденить в себе все черты предыдущих, хотя порой этого делать не стоит
var
nm,snm:array of string;
age:array of integer;
k,s:integer;
begin
write('Введите общее кол-во студентов - '); readln(k);
setLength(nm,k); setLength(snm,k); setLength(age,k);
for var i1:=0 to k-1 do begin
writeln('[Студент ',i1+1,']');
write('Имя - '); readln(nm[i1]);
write('Фамилия - '); readln(snm[i1]);
write('Возраст - '); readln(age[i1]);
end;
for var i2:=0 to k-1 do
if age[i2]<16 then s:=s+1;
writeln; writeln('Кол-во студентов которым меньше 16 лет = ',s,' человек:');
for var i2:=0 to k-1 do begin
if age[i2]<16 then writeln(nm[i2],' ',snm[i2],' ',age[i2],' лет');
end;
end.