Кибернетика
Объяснение:
В середине века выдающийся американский учёный Норберт Винер (1894−1964) , изучавший различные технические и биологические системы, установил, что управление в них осуществляется по общей схеме. Винер считается основоположником науки об управлении — кибернетики.
Существует большое количество различных определений понятия «кибернетика», однако все они сводятся к тому, что кибернетика — это наука, изучающая общие закономерности строения сложных систем управления и протекания в них процессов управления. Так как любые процессы управления связаны с принятием решений на основе получаемой информации, то кибернетику часто определяют ещё и как науку об общих законах получения, хранения, передачи и преобразования информации в сложных управляющих системах.
(см. объяснение)
Объяснение:
Решение задачи на PascalABC.NET:
##
var a: sequence of integer := ReadArrInteger(ReadInteger).Where(x->x>0);
if(a.Count = 0) then print('NO')
else print(a.Sum/a.Count);
Решение задачи на PascalABC:
var a, N, i, sum, k: integer;
begin
sum:= 0;
k:= 0;
readln(N);
for i:= 1 to N do
begin
read(a);
if(a>0) then
begin
k:= k+1;
sum:= sum+a;
end;
end;
if(k=0) then writeln('NO')
else writeln(sum/k);
end.
Рекомендованное решение приведено первым, однако, как мне кажется, второе вам будет понятнее.
Задание выполнено!