Program a1;
var y: array[1..14] of integer; k,s1,s2: byte; minY,maxY,m: integer;
begin
writeln('Vvedite massiv Y: '); {просим ввести массив}
for k:=1 to 14 do read(y[k]); {записываем массив}
s1:=0; s2:=0; {счётчики на 0}
minY:=y[1]; {присваиваем первому значению минимум...}
for k:=2 to 14 do begin if y[k] < minY then degin minY:=y[k]; s1:=s1+1; end; {если есть меньше, то присваиваем}
maxY:=y[1]; {присваиваем второму значению максимум...> <}
for k:=2 to 14 do begin if y[k] > maxY then degin maxY:=y[k]; s2:=s2+1; end; {если есть больше, то присваиваем}
m:=y[s1]; {используя переменную m меняем местами элементы}
y[s1]:=y[s2];
y[s2]:=m;
writeln('Novyi massiv: ');
for k:=1 to 14 do write(y[k],' '); {выводим новый массив}
readln
end.
Информационные ресурсы общества в настоящее время рассматриваются как стратегические ресурсы, аналогичные по значимости ресурсам материальным, сырьевым, энергетическим, трудовым и финансовым. Однако между информационными ресурсами и всякими иными существует одно важнейшее различие: всякий ресурс, кроме информационного, после использования исчезает (сожженное топливо, израсходованные финансы и т. п.), а информационный ресурс остается «несжигаемым», им можно пользоваться многократно, он копируется без ограничений.
Стилевое форматирование имеет ряд преимуществ:
1) экономит время - применить стиль как набор параметров форматирования значительно быстрее, чем задавать соответствующие параметры один за другим;
2) обеспечивает единообразие в оформлении текстового документа - при прямом форматировании одинаковые по функциональному назначению структурные элементы могут отличаться своими форматами; применение определённого стиля вносит строгость в оформление документа;
3) позволяет быстро изменить вид отдельных элементов во всём документе - достаточно внести изменения в стиль, и оформление будет изменено во всём документе.