Составить программу перевода информационной ленты из начального состояния в конечное. положение каретки выделено. работу машины представить в виде таблицы. (машина поста) 1111 1 110101 - дано 000000010 1 0 - должно получится положение каретки выделено пробелами

// PascalABC.NET 3.3, сборка 1579 от 18.11.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var x:=ArrGen(8,i->Ln(i+1.1)); x.Println;
  var k:=x.Where(t->(Sin(t)>-0.5) and (Sin(t)<=0)).Count;
  var im:=x.IndexMin;
  Writeln('На указанном интервале найдено элементов: ',k);
  Writeln('Минимальный элемент массива, равный ',x[im],
      ' имеет порядковый номер ',im+1)
end.

Результат
0.0953101798043249 0.741937344729377 1.1314021114911 1.41098697371026 1.62924053973028 1.80828877117927 1.96009478404727 2.09186406167839
На указанном интервале найдено элементов: 0
Минимальный элемент массива, равный 0.0953101798043249 имеет порядковый номер 1

Қауіпсіздік техникасының ережелерін төмендегі пункттерге бөлуге болады:

1. Жалпы

2. ДК - де жұмыс істеу алдында

3. Жұмыс істеу кезінде

4. Авариялық жағдайларда

5. Жұмысты аяқтағанда

Жалпы қауіпсіздік талаптары:

1. Мұғалімнің рұқсатынсыз құрал - жабдықтарды орнынан қозғауға, сымдарға, розеткаларға, штепсельдің айырына, штекерге тиісуге тыйым салынады.

2. Мұғалімнің рұқсатынсыз сыныпқа кіруге және сыныптан шығуға болмайды.

3. Мұғалімнің рұқсатынсыз сыныпта жүруге болмайды.

4. ДК - де су киіммен және су қолмен жұмыс істеуге болмайды.

5. Корпусы мен сымдарының бүтіндігі бұзылған (ашық) ДК - де жұмыс істеуге тыйым салынады.

6. Үстелге, ДК - дің жанына сумка, портфель, кітап қоюға болмайды. Үстелде тек дәптер мен қалам ғана жатуы керек.

7. Пернетақтаның үстіне ештеңені қоюға болмайды.

8. Компьютер сыныбында жүгіруге, ойнауға, жолдастарыңның көңілін қажетсіз аударуға, бөгде жұмыстарды істеуге тыйым салынады.