Исполнитель алгоритма — это некоторая абстрактная или реальная (техническая, биологическая или биотехническая) система выполнить действия, предписываемые алгоритмом. Круг решаемых задач. Каждый исполнитель создается для решения определённого класса задач. Среда исполнителя. Область, обстановку, условия, в которых действует исполнитель, принято называть средой данного исполнителя. Система команд исполнителя. Предписание о выполнении отдельного законченного действия исполнителя называется командой. Совокупность всех команд, которые могут быть выполнены некоторым исполнителем, образует СКИ — систему команд исполнителя.Система отказов исполнителя. Отказ «не понимаю» возникает тогда, когда исполнителю подается команда, не входящая в его СКИ. Отказ «не могу» возникает тогда, когда команда из СКИ не может быть им выполнена в конкретных условиях среды.Режимы работы исполнителя. Для большинства исполнителей предусмотрены режимы непосредственного и программного управления. В первом случае исполнитель ожидает команд от человека и каждую поступившую команду немедленно выполняет. Во втором случае исполнителю сначала задаётся полная последовательность команд (программа), а затем он выполняет все эти команды в автоматическом режиме. Ряд исполнителей работает только в одном из названных режимов. Формальный исполнитель одну и ту же команду всегда выполняет одинаково.
PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018 Внимание! Если программа не работает, обновите версию!
begin var a:=ReadArrInteger(30); Writeln('1. Количество четных ',a.Where(t->t.IsEven).Count); var s:=a.Where(t->(t mod 3=0) and (t mod 9<>0) and t.Between(10,99)); Write('2. Мудреное среднее арифметическое '); if s.Count=0 then Writeln(-1) else Writeln(s.Average); Write('3. Наибольшая длина цепочки четных элементов '); var (l,l1):=(-1,0); foreach var t in a do if t.IsEven then l1+=1 else begin l:=Max(l,l1); l1:=0 end; Writeln(l); var k:=ReadInteger('4. Номер удаляемого элемента (1-30):')-1; Writeln('Массив после удаления элемента'); a:=a?[:k]+a?[k+1:]; a.Println; Write('5. Второй максимум '); a.OrderByDescending(t->t).Skip(1).Take(1).Println end.
