вот не забудь нажать Объяснение:
var
arr : Array[1..100] Of ShortInt;
temp : ShortInt;
i, j, n : Byte;
begin
Write('n='); ReadLn(n);
Randomize;
for i := 1 to n do
begin
arr[i] := Random(11) - 5;
Write(arr[i], ' ');
end;
WriteLn; WriteLn;
for i := 2 to n do
for j := n downto i do
if (((arr[j - 1] <= 0) And (arr[j] > 0)) Or ((arr[j - 1] < 0) And (arr[j] = 0)))
then
begin
temp := arr[j - 1];
arr[j - 1] := arr[j];
arr[j] := temp;
end;
for i := 1 to n do
Write(arr[i], ' ');
end.
Объяснение:
Киберспорт набирает все больше оборотов в мире. Кто-то считает эту деятельность игроманией. Но так ли это? Какие доходы у киберспортсменов и как, играя в игры, стать миллионером?
В 2019 году общая аудитория киберспорта по всему миру превысила 1 млрд человек. Это больше, чем показатели некоторых традиционных видов спорта: за трансляциями соревнований «Формулы-1» следят не более 500 млн человек, а за бейсболом — около 100 млн человек. Аудитория киберспорта только за последний год выросла в полтора раза.
Существует две важных точки в становлении киберспорта — официальная, когда в 1997 году состоялся первый в мире кибертурнир по Quake — Red annihilation. Тогда же американец Эйнджел Муньез создал первую профессиональную киберспортивную лигу Cyberathlete Professional League (CPL), где играли сначала в Quake, а с 2001 года — и в Counter-Strike. Сейчас лига практически не проводит соревнования, однако с ее организации фактически начинается история киберспорта как большого спортивного направления.
C 10 по 25 августа 2003 года в Ташкенте проводился Первый чемпионат по компьютерным играм — Uzbekistan Cyber Games 2003 (UCG 2003). Чемпионат проводился при официальной поддержке Узбекского агентства связи и информатизации. Организаторами выступили журнал InfoCOM.UZ и клуб TransNet. Генеральным спонсором чемпионата является компания Samsung Electronics. Чемпионат проводился по пяти наиболее популярным компьютерным играм, в семи самых технически оснащенных компьютерных клубах Ташкента. Всего в играх чемпионата приняло участие около 700 геймеров.
