Область науки и техники, основанная на синергетическом объединении узлов точной механики с электронными, электротехническими и компьютерными компонентами.
Устройство, преобразующее какой-либо вид энергии в механическую работу.
Автоматическое устройство, которое частично или полностью выполняет функции биологического объекта при взаимодействии с окружающим миром.
Центральное устройство, обрабатывающее машинный код, отвечающее за выполнение различных операций и управление внешним оборудованием.
Наука об общих закономерностях получения, хранения, преобразования и передачи информации в сложных управляющих системах.
Механическое устройство повышенной проходимости.
Отрасль науки, связанная с получением, преобразованием и использованием электрической энергии, а также применением электрических и магнитных явлений.
Наука об электромагнитных колебаниях и волнах, методах их генерации, усиления, излучения, приёма, а также о применении их для передачи информации.
Наука об управлении и контроле устройствами или биологическими объектами на расстоянии при передачи электрических или радиосигналов.
Наука о взаимодействии электронов с электромагнитными полями и методах создания устройств для преобразования электромагнитной энергии при приёме, передаче, обработке и хранении информации.
Человекоподобный робот или синтетический организм, частично или полностью замещающий его.
Раздел физики, наука, изучающая движение материальных тел и взаимодействие между ними.
Наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Объяснение:
Program Alexandra_1;
uses crt;
const n=5;
var
a:array[1..n] of integer;
i, sum: integer;
begin
sum:=0;
for i:=1 to n do
begin
write('Введите ',i,'-e число ');
readln(a[i]);
if a[i]>0 then sum:=sum+a[i];
end;
writeln('Сумма положительных элементов ',sum);
end.
Program Alexandra_2;
uses crt;
const n=7;
var
a:array[1..n] of integer;
i, num: integer;
begin
num:=0;
for i:=1 to n do
begin
write('Введите ',i,'-e число ');
readln(a[i]);
if (a[i]>0) AND (a[i] mod 2 = 0) then num:=num+1;
end;
writeln('Количество четных положительных элементов ',num);
end.
Program Alexandra_3;
uses crt;
const n=6;
var
a:array[1..n] of integer;
i, tum: integer;
begin
tum:=1;
for i:=1 to n do
begin
write('Введите ',i,'-e число ');
readln(a[i]);
if a[i]>0 then tum:=tum*a[i];
end;
writeln('Произведение положительных элементов ',tum);
end.
