Pascal
Надо что-то исправить, чтобы процедура "poparno" меняла местами попарно рядом стоящие элементы выводимых массивов, а пока что оно выполняет функцию рандомно, не учитывая массивов

type
mas=array[1..20] of integer;
var mas1, mas2 :mas;
Procedure Form(var mas1: mas; size:byte);
var i:byte;
begin
for i:=1 to size do
mas1[i]:=random(256);
end;

Procedure vivod(mas1: mas; size: byte);
var i: byte;
begin
for i:=1 to size do
write(mas1[i]:5);
end;

function nenul (mas1: mas; size: byte): integer;
var
i,k: byte;
begin
k:=0;
for i:=1 to size do
if mas1[i]<>0 then k:=k+1;
nenul:=k;
end;

procedure poparno(var mas1: mas; size: byte; x:integer);
var
i:byte;
begin
for i:=1 to size do
begin
mas1[i]:=random(256);
end;
i:=1;
while i begin
x:=mas1[i];
mas1[i]:=mas1[i+1];
mas1[i+1]:=x;
i:=i+2;
end;
end;

var size:byte;
k,x:byte;
begin
form(mas1, 10);
writeln('массив F ');
vivod(mas1, 10);
writeln;
writeln('Количество ненулевых элементов = ', nenul(mas1, 10):5);
poparno(mas1, 10, x);
vivod(mas1, 10);
form(mas2, 20);
writeln;
writeln;
writeln('Массив P ');
vivod(mas2, 20);
writeln;
writeln('Количество ненулевых элементов = ', nenul(mas2, 20):5);
poparno(mas2, 20, x);
vivod(mas2, 20);
end.

1.выбирайте правильную позу.

соблюдайте расстояние от глаз до монитора – 55-60 см (расстояние вытянутой руки).

выбирайте для работы за компьютером удобное кресло.

высота сиденья кресла (стула) должна быть такой, чтобы руки, положенные на клавиатуру, были расположены горизонтально.

2.старайтесь выглядеть достойно в глазах собеседников,

пишите грамотно,

человек, с которым вы общаетесь, может быть не один,

сдерживайте страсти,

будьте терпимы к недостаткам окружающий

3.1.1. на основании договора;

1.2. в форме воспроизведения, без согласия newsader и без выплаты ему вознаграждения, при условии, что такое использование осуществляется гражданином исключительно в личных целях.

1.3. без согласия newsader и без выплаты вознаграждения, но с обязательным указанием ссылки на newsader в соответствии с п. 5 настоящих правил в виде:

1.3.1. цитирования материалов или их части в оригинале и в переводе в научных, полемических, критических или информационных целях в объеме, оправданном целью цитирования, включая части текстовых материалов;

1.3.2. использования материалов и их частей в качестве иллюстраций в изданиях, радио- и телепередачах, звуко- и видеозаписях учебного характера в объеме, оправданном поставленной целью;

1.3.3. воспроизведения в прессе, сообщение в эфир или по кабелю публично произнесенных политических речей, обращений, докладов и других аналогичных произведений, если они являются частью материалов в объеме, оправданном информационной целью;

1.3.4. воспроизведения или сообщения для всеобщего сведения в обзорах текущих событий средствами фотографии, кинематографии, путем сообщения в эфир или по кабелю материалов или их частей, которые становятся увиденными или услышанными в ходе таких событий, в объеме, оправданном информационной целью;

Корпоративные требования к почтовой перепискеписьмо состоит из трех частей1. Обращение2. текст письма3. Подпись4. исполнитель или сотрудник для связи с полными координатами(адреса: почтовый,E-mail, IСQ,телефон)
Сетевой этикет
Сетево́й этике́т (сетикет, нетикет — неологизм, является слиянием слов «сеть» (англ. net) и «этикет») — правила поведения, общения в Сети, традиции и культура интернет-сообщества, которых придерживается большинство. Это понятие появилось в середине 80-х годов XX века в эхоконференциях сети FIDO. Некоторые из правил сетевого этикета присутствуют в RFC 1855 (английский вариант).
Правила этикета не являются всеобщими и жестко установленными — в разных сообществах они могут значительно различаться. Так как основная цель этикета состоит в том, чтобы не затруднять общение в сообществе, правила могут устанавливаться исходя из целей сообщества, принятого стиля общения, технических ограничений, и т. д. Некоторые правила записаны, и даже оформляются в виде формального устава, а иногда и просто в виде списка, другие правила нигде не записаны, но известны большинству членов сообщества и строго соблюдаются.