program d;
var i:integer;
a :array[1..22] of integer;
begin
for i:=1 to 22 do begin
a[i]:= Random(27)-23;
write(a[i]:2);
end;
writeln;
writeln('массив после изменений');
for i:=1 to 22 do begin
if a[i] mod 2 = 0 then a[i]:=2;
write(a[i]:2);
end;
end.
Бытовые роботы. Уже мало кого удивляют автоматизированные уборщики или пылесосы, но ожидается скачкообразное развитие этой тенденции. Вскоре в большинстве домов появятся роботы, запрограммированные на исполнение повседневных задач и всевозможных хозяйственных работ – в течение 5–10 лет ожидается прирост домашней сервисной роботизированной техники на 400 %. Эксперты полагают, что здесь машинам будет отдана работа, не влекущая за собой социально-опасных последствий (уборка, стирка), но в обозримом будущем люди не уступят приготовление пищи и уход за детьми.
Групповая робототехника. Достаточно проблематичная тенденция в качестве направления робототехники. Ученые работают над созданием робототехнических систем, состоящих из отдельных небольших машин, которые децентрализовано взаимодействуют друг с другом и окружающим миром – самоорганизующийся рой. Основное препятствие к реализации данной цели – создание аппаратного обеспечения, достаточно компактного и мощного для организации связи.
Медицинские роботы. Одна из наиболее мотивированных сфер, поскольку от её развития напрямую зависит человеческих жизней. Уже сегодня машины повсеместно используются при проведении хирургических операций и многих других процедур. Ежегодный прирост автоматизированных машин в медицине составляет 20 % и более.
Киборги. Здесь робототехника как перспективное направление играет особенную роль, поскольку является единственной возможностью полноценно заменять конечности и отдельные органы людям, нуждающимся в протезах того или иного рода. Спрос на продукцию этого рода очень велик, а возможности сферы стали более обширными после возникновения 3D-биопринтинга.
Искусственный интеллект. Появление интеллектуальных машин и программного обеспечения самостоятельно существовать и действовать в окружающей среде. И хотя действительно самостоятельного ИИ пока не существует, вероятность его возникновения в ближайшие 20 лет чрезвычайно высока.
var a: array[1..22] of integer;
i: integer;
begin
write('исходный массив: ');
for i:=1 to 22 do begin
a[i]:=random(37)-23;
write(a[i],' ');
end;
writeln;
write('полученный массив: ');
for i:=1 to 22 do if abs(a[i]) mod 2=0 then a[i]:=2;
for i:=1 to 22 do write(a[i],' ');
end.