Организуйте массив.поменяйте на дисплей значения и индексы элементов, модуль значения которых меньше 10. как описать следующие этапы по этой : - постановка , описание, разработка алгоритма решения заачи, программирование, описание отладки программы на пк

Описать этапы не умею. могу составить только программу var   a: array[1..10]of integer;   i: integer; begin writeln('массив: ');   for i : = 1 to 10 do   begin   a[i] : = random(50, -50);   write(a[i]: 4)   end; writeln; writeln('элементы с модулем значения меньше 10: ');   for i : = 1 to 10 do     if abs(a[i]) < 10   then writeln('индекс: ', i, ', значение: ', a[i]) end.

ответ:Линии и стрелки

Для создания линии укажите начальную и конечную точку линии на листе рисунка: начальная точка линии задаётся левой кнопкой мыши; затем, не отпуская кнопку, установите курсор на конечную точку линии и отпустите кнопку — линия создана.

Соединительная линия

Этот объект создаётся точно так же, как и обычная линия. Особенностью соединительной линии является привязываться к объектам, поэтому при создании соединительной линии вместо точки начала или конца линии можно указать какой-нибудь объект — программа сама подберет наилучшую точку присоединения линии к нему.

Прямоугольники

Здесь нужно указать положение двух противоположных вершин прямоугольника: первую укажите нажатием левой кнопки мыши; затем, не отпуская её, подведите курсор ко второй точке и зафиксируйте фигуру, отпустив кнопку.

Окружности, эллипсы, дуги, сегменты и сектора

Для создания окружности или эллипса достаточно указать размер примитива двумя точками: первую точку укажите, нажав левую кнопку мыши, не отпуская её, переместите курсор на необходимое расстояние ко второй точке и отпустите кнопку мыши. Окружность или эллипс будут вписаны в прямоугольник, заданный начальной и конечной точками. Чтобы получить дугу, сегмент или сектор, нужно указать ещё две точки на контуре окружности или эллипса, также нажав и отпустив левую кнопку мыши.

Трёхмерные объекты

Чтобы задать трёхмерный объект, необходимо указать его максимальный размер в одном из двух измерений. Трёхмерный объект создаётся в фиксированных пропорциях, которые можно изменить уже после его создания.

Текст

Текстовый объект создаётся щелчком левой кнопки мыши в нужном месте листа: появится кадр набора текста с текстовым курсором.

При создании текста, вписанного в рамку, сначала задайте рамку двумя точками: нажмите правую кнопку мыши в первой точке, переместите курсор и отпустите кнопку во второй точке. Размер шрифта будет автоматически подобран так, чтобы текст занимал всю область указанной рамки.

Легенда

Легенда — это рамка со стрелкой, которая обычно используется для пояснения какой-либо части рисунка. Она задаётся, как и обычная рамка, двумя точками при правой кнопки мыши. Затем внутрь рамки легенды можно вставить текст, дважды щёлкнув левой кнопкой мыши на рамке. При вводе текста рамка легенды автоматически изменяет размер.

Кривые Безье

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

Кривые Безье строятся по нескольким точкам и направляющим линиям. Точки, по которым строится кривая, называются опорными точками; каждая из них характеризуется двумя отрезками, расположенными на касательной к кривой Безье в опорной точке (они называются направляющими). Длина каждой из них задаёт крутизну следующего или предыдущего сегмента кривой, а угол касательной задает направление в обе стороны от опорной точки.

При создании кривой в OpenDraw последовательно указываются её опорные точки с левой кнопки мыши. Если после нажатия кнопки для создания опорной точки не отпустить кнопку, то можно задать угол и длину направляющих; если же кнопку не удерживать, то длина направляющих будет нулевая, и такая точка будет угловой. Направляющая первой опорной точки должна быть указана, иначе операция отменяется. Двойной щелчок левой кнопкой мыши завершает рисование кривой.

Объяснение:https://docs.altlinux.org/ru-RU/archive/2.4/html-single/master/alt-docs-extras-openoffice/ch04s03.html вот тут взял)

//Обьявляем дополнительные переменные и главный массив, а также два дополнительных - они будут "половинками".

var

 a, b, c: array [1..100] of longint;

 i, min, n, j, t: longint;

begin

 //Читаем количество элементов в нашем массиве.

 readln(n);

 

 //Читаем массив.

 for i := 1 to n do read(a[i]);

 

 //Заполняем первую "половинку".

 for i := 1 to n div 2 do b[i] := a[i];

 

 //Заполняем вторую "половинку". Но раз это уже вторая "половинка" главного массива, то и

 //цикл теперь должен начинаться со второй части массива, а заканчиваться уже в его конце.

 for i := n div 2 + 1 to n do c[i - n div 2] := a[i];

 

 //Теперь отсортируем первую "половинку" методом выбора. Идея этого метода

 //основывается на том, что мы ищем минимальный среди неотсортированных элемент,

 //а затем аем его с тем, который стоит сразу после отсортированных.

 for i := 1 to (n - 1) div 2 do

 begin

   min := i;

   for j := i + 1 to n div 2 do

     if b[min] > b[j] then

       min := j;

   if min <> i then begin

     t := b[i];

     b[i] := b[min];

     b[min] := t;

   end;

 end;

 

 //Затем вторую точно также, только стоит обратить внимание на сравнения.

 //Так как надо отсортировать по убыванию, то теперь сравнение перед "swap"-ом

 //будет другим.

 for i := 1 to (n - 1) div 2 do

 begin

   min := i;

   for j := i + 1 to n div 2 do

     if c[min] < c[j] then

       min := j;

   if min <> i then begin

     t := c[i];

     c[i] := c[min];

     c[min] := t;

   end;

 end;

 

 //А теперь по очереди выводим готовые "половинки", не забывая ставить

 //пробел после вывода каждого элемента.

 for i := 1 to n div 2 do write(b[i], ' ');

 for i := 1 to n - n div 2 do write(c[i], ' ');

end.