В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
melnikowapolia
melnikowapolia
08.03.2022 08:58 •  Информатика

Определить, есть ли в заданном массиве положительные элементы кратные 7

На Pascal

Решать через Var

Показать ответ
Ответ:
nyto4ek
nyto4ek
13.12.2022 09:25
// PascalABC.NET 3.2, сборка 1382 от 06.02.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var n:=ReadInteger('Количество строк (столбцов) в массиве:');
  Writeln('*** Исходный массив [',n,',',n,'] ***');
  var a:=MatrRandom(n,n,-10,10);
  a.Println(4); Writeln(5*a.ColCount*'-');
  var k,l:integer;
  Write('Введите L,K: '); Read(l,k);
  var lim:=a[l-1,k-1];
  var s:=a.Rows.SelectMany(x->x).Where(x->x<lim).Sum;
  Writeln('Искомая сумма равна ',s)
end.

Пример
Количество строк (столбцов) в массиве: 6
*** Исходный массив [6,6] ***
  -4  -8  -7  -3  -6  -4
   2  -9   1   9  -6   6
  -9  -2  -8  -3  -1  -4
  -1  -9  -3  -7   3  -3
   5   9  -6   8  -1 -10
  -1  -1  -5  -8  -9   4

Введите L,K: 2 3
Искомая сумма равна -138
0,0(0 оценок)
Ответ:
ivan497
ivan497
30.08.2021 15:07

Существовало две игры. Одна проигрывалась в жизни. Другая проживалась в игре. Естественно, однажды эти миры столкнулись, равно как и Два Джона.

Это случилось в апреле 2000 года в деловом районе Далласа{1}[1]. Поводом послужили 100 тыс. долларов, стоявшие на кону, – главный приз в чемпионате по компьютерной игре Quake III Arena, который проводила Cyberathlete Professional League, организация, надеявшаяся когда-нибудь стать своего рода Национальной футбольной лигой в кибер Все было устроено по принципу BYOC[2]. В подвале отеля Hyatt сотни компьютеров объединили в сеть: участникам предстояло провести за ними семьдесят два часа без перерыва. На огромном экране, на который выводилось то, что отображалось на мониторах игроков, проносились ракеты. Пыхающие сигарами космические десантники, грозные широкоплечие воины, забрызганные кровью клоуны-маньяки – все они гонялись друг за другом с ракетными установками и плазменными пушками с одной целью: убить как можно больше персонажей.

Участники соревнования были матерыми геймерами, проделавшими огромный путь. Больше тысячи человек приехали на машинах из далекой Флориды и даже Финляндии, привезя с собой собственные монитор, клавиатуру и мышку. Они бились до тех пор, пока не начинали падать в обморок или сползать под стол, чтобы поспать, подложив под голову коробку из-под пиццы. Одна парочка гордо заявилась с новорожденным младенцем, одетым в самодельную пижаму с надписью Quake. Двое парней выбрили на голове логотип Quake в виде когтя; их подружки кружили по конференц-залу с бритвами наготове, предлагая всем желающим сделать культовую прическу.

Подобные страсти было отнюдь не редкостью для Далласа – столицы ультражестких игр типа Quake или DOOM. Игры, в которых, как в пейнтболе, играешь от первого лица, положили начало новому жанру, известному как first person shooter[3]. Они входят в число самых успешно продаваемых франшиз в этой индустрии, оцениваемой в 10,8 миллиона долларов, и заставляют американцев тратить больше денег на видеоигры, нежели на билеты в кино{2}. В свое время они развитию вычислительной техники, расширив границы 3D-графики и задав стандарт онлайн-игр и сообществ. Вместе с тем из-за них так сильно накалилась социально-политическая обстановка, что их даже запретили в ряде стран, а в США признали, что именно они спровоцировали череду убийств, совершенных в 1999 году двумя фанатами в Колумбийском университете.

В результате сформировалось уникальное неформальное сообщество, высокотехнологичная Мекка, где совершенно безумных одаренных молодых геймеров награждали крупными призами. Самыми одаренными и безумными среди них оказались соавторы DOOM и Quake Джон Кармак и Джон Ромеро, или, как их все называли, Два Джона.

Для нового поколения Кармак и Ромеро стали олицетворением «американской мечты»: оба – профессионалы, сделавшие себя сами и превратившие личное увлечение в большой бизнес, новую форму искусства, культурный феномен. История их успеха сделала их самыми необычными антигероями как по мнению Fortune 500, так и по мнению компьютерных хакеров; их называли Ленноном и Маккартни видеоигр (хотя более лестным для них было бы, вероятно, сравнение с Metallica). Оба Джона оставили свои неблагополучные семьи, чтобы создать одни из самых значимых компьютерных игр в истории. Но так вышло, что они же стали причиной, по которой их пути разошлись. И вот теперь, спустя годы после разрыва, Кармаку и Ромеро предстояло вместе выйти к своим фанатам.

Они согласились рассказать о своих последних проектах: детище Кармака Quake Arena III, разработанном в компании id Software, которую они основали сообща, и долгожданной эпической игре Daikatana авторства Ромеро, появившейся на свет в его новом стартапе Ion Storm. Эти игры объединяли полярные различия, в свое время сплотившие Двух Джонов в столь динамичный дуэт, а ныне превратившие их в, казалось, абсолютно непримиримых соперников. Их отношения стали предметом изучения человеческой алхимии.

29-летний Кармак, программист-филантроп, вел монашеский образ жизни и в свободное время собирал мощные ракеты (по мнению Билла Гейтса, он входил в шорт-лист гениев); его игра, равно как и вся жизнь, сводилась в своем устройстве к элегантной продуманности компьютерного кода. 32-летний Ромеро – дерзкий дизайнер, чей имидж плохого парня превратил его в рок-звезду индустрии, – мог поставить на кон все, включая собственную репутацию, чтобы реализовать самые смелые проекты. Как сказал Кармак после их разрыва: «Ромеро нужна целая империя, я же всего лишь хочу писать хорошие программы»{3}.

0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота