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.
Объяснение:
Автоматиза́ция произво́дства — это процесс в развитии машинного производства, при котором функции управления и контроля, ранее выполнявшиеся человеком, передаются приборам и автоматическим устройствам[1]. Введение автоматизации на производстве позволяет значительно повысить производительность труда, обеспечить стабильное качество выпускаемой продукции, сократить долю рабочих, занятых в различных сферах производства.
До внедрения средств автоматизации, замещение физического труда происходило посредством механизации основных и вс операций производственного процесса. Интеллектуальный труд долгое время оставался не механизированным (ручным). В настоящее время операции физического и интеллектуального труда, поддающиеся формализации, становятся объектом механизации и автоматизации. В качестве характеристики измерения может выступать понятие уровня (степени) автоматизации.
