Var n, i, min, max: integer; begin for i:=1 to 15 do begin write(i, '-ое число '); readln(n); if i=1 then begin max:=n; min:=n; end; if n>max then max:=n; if n<min then min:=n; end; writeln('max = ', max); writeln('min = ', min); end.
Корпоративные требования к почтовой перепискеписьмо состоит из трех частей1. Обращение2. текст письма3. Подпись4. исполнитель или сотрудник для связи с полными координатами(адреса: почтовый,E-mail, IСQ,телефон) Сетевой этикет Сетево́й этике́т (сетикет, нетикет — неологизм, является слиянием слов «сеть» (англ. net) и «этикет») — правила поведения, общения в Сети, традиции и культура интернет-сообщества, которых придерживается большинство. Это понятие появилось в середине 80-х годов XX века в эхоконференциях сети FIDO. Некоторые из правил сетевого этикета присутствуют в RFC 1855 (английский вариант). Правила этикета не являются всеобщими и жестко установленными — в разных сообществах они могут значительно различаться. Так как основная цель этикета состоит в том, чтобы не затруднять общение в сообществе, правила могут устанавливаться исходя из целей сообщества, принятого стиля общения, технических ограничений, и т. д. Некоторые правила записаны, и даже оформляются в виде формального устава, а иногда и просто в виде списка, другие правила нигде не записаны, но известны большинству членов сообщества и строго соблюдаются.
begin
for i:=1 to 15 do
begin
write(i, '-ое число ');
readln(n);
if i=1 then begin max:=n; min:=n; end;
if n>max then max:=n;
if n<min then min:=n;
end;
writeln('max = ', max);
writeln('min = ', min);
end.