Принципы здорового и осознанного образа жизни распространяются как новая религия планетарного масштаба — им учат в школах и за их соблюдением пристально следит общество.Активно распространяется интернет всего — к нему подключается все больше устройств, производство становится безлюдным, концепция Индустрии 4.0 доминирует не только в развитых, но и во многих развивающихся странах.Яркая черта периода. Каждый третий хотя бы раз задумывается о биохакинге — попытке «взломать» генетически заданный уровень здоровья и продолжительность жизни.Маловероятное событие (джокер). Наступает «инновационная зима» — самые масштабные инвестиции в передовые научные разработки не оправдаются. Результаты пока далеки от обещанных фундаментальных прорывов — начиная от искусственного интеллекта и заканчивая медициной, не говоря уже о скорости их распространения в сложных многоукладных экономиках.
var a:array[1..n] of integer;
i,k:integer;
begin
for i:=1 to n do a[i]:=random(50)-20;
for i:=1 to n do write(a[i]:4);
writeln;
k:=0;
for i:=1 to n do
if (a[i]>0) and (a[i] mod 3 = 0) then k:=k+1;
write('количество положительных элементов, которые кратны 3 = ',k);
end.