Какие рекомендации по организации работы за компьютером вы считаете основными?

Если много,прости.. 1. сидите глубоко на полужестком кресле со спинкой, имеющей изгиб для поясницы, – это выровняет спину, и даст поддержку шее.  2. делайте перерыв в сидячей работе, вставайте и ходите. при работе с компьютером в течение 6–8 часов необходимо каждые 2–3 часа давать себе отдых не менее 15 минут, во время которой проводить гимнастику.  3. избегайте опущенного положения головы, это напряжение мышц спины и шеи.  4. затемните экран, создав вокруг него колпак, например, положив наверх терминала лист черного картона и отогнув с обеих сторон вниз. теперь можно поставить яркость на низкий уровень. это уменьшит утомление глаз.  5. через каждые 45 минут необходимо выполнять гимнастику для глаз.  6. не рекомендуется работать на компьютере:   * во время беременности;   * в корректирующих зрение очках;   * во время болезни;   * в синтетической или шерстяной одежде;   * более 45 минут без перерыва.  7. моргайте чаще во время работы за компьютером, потому что каждое такое движение очищает глаза и производит своеобразный массаж.  8. во время работы, для уменьшения напряжения, перемещайте взгляд по всей площади экрана, старайтесь не смотреть напряженно в одну точку. такой прием позволяет задействовать большинство глазных мышц, а не отдельные их группы, что снижает риск развития миопии (нарушения остроты зрения).

Program sh;   var j: integer;   massiv: array [1..1000] of integer;   begin;     begin;       randomize;       for j: =1 to 1000 do         massiv[j]: =random(1000);     end;     for j: =1 to 1000 do       begin;         if (massiv[j] mod 1=0) then         if (massiv[j]> 0) and (massiv[j] mod massiv[j]=0) then         write (massiv[j]: 5);       end;   end. я не понял запрос, в итоге эта программа выводит все натуральные числа созданные рандомом в районе от 0 до 1000.

Var       a: array[0..10] of integer;       i, n, k: integer; begin       for i : = 0 to 10 do               a[i] : = i;       println(a);       for i : = 1 to 11 do       begin               a[i - 1] : = a[11 - i];               println(a);       end; end. трасировка второго цикла а [10,1,2,3,4,5,6,7,8,9,10] [10,9,2,3,4,5,6,7,8,9,10] [10,9,8,3,4,5,6,7,8,9,10] [10,9,8,7,4,5,6,7,8,9,10] [10,9,8,7,6,5,6,7,8,9,10] [10,9,8,7,6,5,6,7,8,9,10] [10,9,8,7,6,5,6,7,8,9,10] [10,9,8,7,6,5,6,7,8,9,10] [10,9,8,7,6,5,6,7,8,9,10] [10,9,8,7,6,5,6,7,8,9,10] [10,9,8,7,6,5,6,7,8,9,10]