Розробити програму, яка малює 3-х вугільну призму і при натисненні Y, - поворот на 100 градусів довкола осі Y. Вигляд схеми алгоритму і програми на будь-якій мові програмування високого рівня (Паскаль, С++).

Компьютеры, телефоны, мониторы. Без этой техники уже трудно представить жизнь. Исследования учёных влияния компьютерных излучений на здоровье привели в волнение офтальмологов, косметологов, дерматологов и ортопедов. Доктора подтверждают снижение остроты зрения, увеличение веса, ускорение старения кожи лица

Исследования учёных

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

Кожа потеряла эластичность, щёки обвисли, лицо потеряло контур, заметных морщин стало больше, некоторые дамы обзавелись вторым подбородком.

Причина неприятностей – в электростатическом поле, которое создаётся вокруг экрана и сушит воздух. Ещё одна причина – микрочастицы, оседающие и загрязняющие лицо. Глаза краснеют, появляется раздражение и воспаление.



Последствия:

· иссушение кожных покровов;

· расширение и забитость пор;

· излишняя жирность кожи;

· глаза окружены морщинистой сеточкой;

· сухие веки;

· расширенные сосуды на щеках;

· появление второго подбородка;

· мимические морщины.

Исследователями предлагаются профилактические меры, предотвращающие влияние вредных излучений

var

  A: array [1..12] of integer;  //Одномерный массив из 12 целых чисел

  i: integer;  

begin

  for i:= 1 to 12 do  //Вводим элементы массива с клавиатуры

  begin

    writeln('Введите A[', i, ']');

    readln(A[i]);

  end;

  write('Исходный массив:  ');  //Выводим исходный массив

  for i:= 1 to 12 do

    write(A[i], '  ');

  writeln;  //Перевод на новую строку

  write('Измененный массив:  ');

  for i:= 1 to 12 do   {Изменяем все положительные элементы на 5 и распечатываем полученный массив}

  begin

    if A[i] > 0 then A[i]:= 5; 

    write(A[i], '  ');

  end;

  writeln;  {Переход на новую строку, чтобы при следующем запуске программы информация выводилась с новой строки}

end.

Если все правильно, отметь решение как лучшее)