volk910
19.07.2022 06:07

Қандай да бір программалау тілінде жазылған алгоритм компьютерге түсінікті командалар жиынтығы? информатика​

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
sasasara97ag
14.06.2022 11:35

Сегодня Counter Strike: Global Offensive – одна из самых популярных видеоигр в мире. Она занимает первые строчки в Steam, а о ее существовании знает каждый студент и школьник.

Однако 18 лет назад, когда первая версия игры только появилась, никто не мог предсказать такого успеха.

Counter-Strike – онлайн-шутер, суть которого заключается в противостоянии двух команд – террористов и контртеррористов (спецназа). У обеих команд есть цели в раунде, завершив которые, либо полностью уничтожив команду противника, они получают матч-поинт. Выиграв определенное количество раундов, команда выигрывает матч. Самый популярный сценарий – когда террористам нужно заложить бомбу в определенной точке, а спецназу ее обезвредить.

Но с чего же началась история уже ставшей легендарной серии?

Идея видеоигры о противостоянии террористов и спецназовцев возникла в конце 90-х, то есть до теракта 11 сентября и тотальной террористической угрозы. Ее создатель, канадец вьетнамского происхождения Мин «Gooseman» Ли, делал не коммерческий продукт об актуальной и острой проблеме, а модификацию – мод – другой игры на интересующую его тематику.

До CS мультиплеерные баталии проходили в скоростных шутерах с фантезийными декорациями и полностью нереальной физикой, таких как Quake и Unreal Tournament. К ним Мин Ли также создавал моды, причем весьма успешные: Navy Seals (мод к первому Quake) и Action Quake 2 (мод ко второму Quake, который он делал в составе сообщества модеров достаточно популярной в то время A-TEAM).

0,0(0 оценок)
Ответ:
feliz3600
17.11.2020 18:03
// PascalABC.NET 3.0, сборка 1144 от 16.01.2016
begin
  var n:=ReadInteger('n=');
  var a:=ArrRandom(n,-50,50);
  Writeln('Исходный массив'); a.Println;
  var se:=a.Where(x->x mod 3=0);
  if se.Count=0 then
    Writeln('В массиве нет элементов, кратных трем')
  else begin
    var b:=se.Max;
    var i:=0;
    while a[i]<>b do Inc(i);
    if i=n-1 then Writeln('Максимальный элемент - последний')
    else begin
      Writeln('Результирующий массив');
      a[i+1]:=abs(a.Where(x->x<0).Sum); a.Println
      end
    end
end.

Тестовое решение:
n= 15
Исходный массив
-24 -38 15 -33 -40 -18 21 34 20 49 -19 29 29 38 -41
Результирующий массив
-24 -38 15 -33 -40 -18 21 213 20 49 -19 29 29 38 -41
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота