const n=20;
var a:array[1..n] of integer;
i:integer;
begin
for i:=1 to n do
begin
a[i]:=random(31)-10;
write(a[i]:4);
end;
end.
Пример:
7 8 12 16 8 16 6 16 3 9 10 1 3 -1 17 -9 19 -2 1 4
В настоящее время компьютерные программы способны решать целый ряд задач, в основном выполняя роль помощника, но не заменяя человека полностью. Так, компьютер выполняет львиную долю труда большинства офисных работников, художников и музыкантов, врачей, юристов, однако уже сейчас он способен полностью заменить многих работников конвейерного производства, семейного врача, водителя. Так, в одном лишь 2016-м году в мире было уволено более полутора сотен тысяч человек, труд которых был полностью заменен компьютерами. Самый известный пример - китайская компания Foxconn, которая, в числе прочего, производит телефоны iPhone. Очень вероятно, что в течение ближайших трех лет роботы оставят без работы ещё несколько миллионов низкоквалифицированных рабочих.
В начале 21 века компания IBM создала компьютер Deep Blue, который в течение короткого времени стал лучшим шахматистом планеты. После победы над тогдашним чемпионом мира Гарри Каспаровым, его превосходство не оспаривалось. Последователем Deep Blue стал компьютер Watson, разгромивший участников интеллектуального шоу "Jeopardy!", в котором задачей игрока является найти ответ на нечетко заданный вопрос. Уже тогда было понятно, что задача Watson простирается намного дальше, и уже сейчас, пусть и в лабораторных условиях, Watson работает над постановкой диагноза по собранному людьми анамнезу, а также сам задает наводящие вопросы больному, позволяющие ему с большей точностью чем обычному семейному врачу, поставить диагноз и направить к специалисту.
Но что будет, когда Ватсон начнет работать вместе с роботом ДаВинчи? Тот, в свою очередь, позволяет хирургам удаленно проводить высокоточные операции, не прикасаясь к больному. В течение этой декады мы увидим невероятные прорывы в медицине, которые оставят без работы десятки тысяч работников медицины, но дадут надежду человечеству на более долгую и счастливую жизнь.
В настоящее время компания Uber, которую мы знаем как оператора частных такси, вывела на улицы Питтсбурга самоходные машины, способные заменить собой таксиста. Они пока не отличаются профессионализмом вождения, и больше напоминают очень осторожного начинающего водителя, но они накапливают опыт и делятся им друг с другом, таким образом уже в 2017 году мы можем рассчитывать на начало коммерческого использования самоходного транспорта как минимум в США и России, а затем в Великобритании, где уже подготовлено законодательство для самоходного транспорта, и в других странах. Это приведет к тому, что миллионы людей по всему миру временно лишатся дохода, но улучшит экономику и экологию стран, которые станут пионерами данного движения.
Что будет дальше? Юристы, офисные работники низшего звена (такие, как секретари), курьеры, почтальоны и даже учителя станут свидетелями невероятного перерождения их сферы труда в нечто намного более эффективное и зловеще надежное, однако в полной мере ощутить на себе новый мир смогут лишь те, кто в нем родится.
Program n1;
var a,sum: integer;
begin
readln(a);
while a<>0 do
begin
if (a mod 6=0) and (a mod 10=4) then sum:=sum+a;
readln(a);
end;
writeln(sum);
end.
1. Купить путевку на море - собрать вещи - поехать на море - разместиться в отеле - купаться, загорать, отдыхать, развлекаться - собрать вещи - уехать домой
2. Приехать в зоопарк - купить билет - зайти в зоопарк - ходить по зоопарку и смотреть на животных - выйти из зоопарка - вернуться домой
