Напишите программу на массивы
введите с клавиатуры число х и определите количество элементов массива,расстояние от которых до х в два раза меньше ,чем максимальное расстояние между х и элементами массива.

Питання для самоперевірки

1. Як визначити розмір вертикального відступу від тексту до границі браузера?

2. Як визначити розмір горизонтального відступу від тексту до границі браузера?

3. Як визначити колір тексту для всього документу?

4. Як визначити колір фрагменту тексту?

5. Як визначити шрифт, яким текст буде відображуватись у вікні браузера?

6. Як записати тег лінії з товщиною в 5 пікселів?

7. Чи можливо задати лінію товщиною в 200 пікселів?

8. Як записується тег заголовку 5 розміру з вирівнюванням по центру?

9. Як записується тег абзацу з вирівнюванням по лівому краю?

10. Яким чином задати обов’язкове відображення фрагменту тексту з нового рядка?

A[i] := i + 1;

   PrintLn(a);

   Println();

   for i := 1 to 10 do

   begin

       A[i] := A[i - 1];

       PrintLn(a);

   end;

   Println();

   Println(2);

   for i := 0 to 10 do

       A[i] := i + 1;

   PrintLn(a);

   Println();

   for i := 10 downto 0 do

   begin

       A[i] := A[10 - i];

       PrintLn(a);

   end;

end.

Тут вывод трасировок последних циклов

1

[1,2,3,4,5,6,7,8,9,10,11]

[1,1,3,4,5,6,7,8,9,10,11]

[1,1,1,4,5,6,7,8,9,10,11]

[1,1,1,1,5,6,7,8,9,10,11]

[1,1,1,1,1,6,7,8,9,10,11]

[1,1,1,1,1,1,7,8,9,10,11]

[1,1,1,1,1,1,1,8,9,10,11]

[1,1,1,1,1,1,1,1,9,10,11]

[1,1,1,1,1,1,1,1,1,10,11]

[1,1,1,1,1,1,1,1,1,1,11]

[1,1,1,1,1,1,1,1,1,1,1]

2

[1,2,3,4,5,6,7,8,9,10,11]

[1,2,3,4,5,6,7,8,9,10,1]

[1,2,3,4,5,6,7,8,9,2,1]

[1,2,3,4,5,6,7,8,3,2,1]

[1,2,3,4,5,6,7,4,3,2,1]

[1,2,3,4,5,6,5,4,3,2,1]

[1,2,3,4,5,6,5,4,3,2,1]

[1,2,3,4,5,6,5,4,3,2,1]

[1,2,3,4,5,6,5,4,3,2,1]

[1,2,3,4,5,6,5,4,3,2,1]

[1,2,3,4,5,6,5,4,3,2,1]

[1,2,3,4,5,6,5,4,3,2,1]

Подробнее - на -

Объяснение: