Створіть скрипт, за яким виконавець
переміщується між границями Сцени в горизонтальному напрямку до
натиснення клавіши 1. Після цього виконавець повинен переміщуватися між
границями Сцени у вертикальному напрямку до натиснення клавіши 2 і так
далі.

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

1.

var

  A: array [1..10] of integer;

  max, i: integer;

begin

    for i:=1 to 10 do                 // заполнение массива

        A[i] := random(100) - 50;

    max := -51;

    for i:=1 to 10 do                 // обработка массива

        if (A[i] < 0) and (A[i] > max) then

        max := A[i];

    writeln(max);

end.

2.

var

  A: array [1..1000] of integer;

  kol, i, N: integer;

begin

    readln(N);

    for i:=1 to N do                 // заполнение массива

        A[i] := random(100) - 50;

    for i:=1 to N do                 // обработка массива

        if A[i] mod 2 = 0 then

        inc(kol);

    writeln(kol);

end.