На каких ещё материалах можно печатать с принтера?
зачем компьютеры объединяют в локальные и более крупные сети?
желательно полный ответ)

ответ:Можно управлять чем-то вручную, а можно запрограммировать и надеяться, что все сработает как надо. В быту широко используется программное управление для выполнения стандартных операций. Например выбор режим стирки в стиральной машине. При выборе того или иного режима активируется соответствующая программа и удобно.

Точно также производится готовка в мультиварке. Но когда требуется сделать что-то, чего не учитывает программа, делать приходится вручную.

При всей универсальности программа не может учесть всего. Всегда приходится что-то корректировать. Поэтому на практике приходится прибегать к обоим методам. Особенно, когда ручное управление затруднено. Так происходит, например при управлении марсоходом. Радиосигнал идет довольно долго и порулить" марсоходом с земли в реальном времени не получится. Приходится отправлять блок команд и принимать сигнал о их выполнении.

В общем, вручную безусловно лучше, но не всегда возможно.

{Из массива Р, содержащего 10 элементов, сформировать массив Н по правилу:Н(к)=I/P(к), (к -чётные), Н(к)=Р(к)+к, (к - нечётные)В массиве, содержащем 10 элементов, нечётным элементам присвоить значения квадратов их индексов.В массиве, содержащем 10 элементов, напечатать индекс последнего из элементов, равных 0.}var P:array[1..10] of integer; H:array[1..10] of real;i:integer;index1, index2:integer;
begin

  writeln('Введите элементы массива P: ');  for i:=1 to 10 do  begin  readln(P[i]);  end; writeln; writeln('Массив P: ');  for i:=1 to 10 do  begin  write(' '+P[i]+' ');  end;
  writeln;  writeln('Массив H: ');   for i:=1 to 10 do  begin   if (i mod 2 = 0) then  begin  H[i]:=1/P[i];  end;   if (i mod 2 <> 0) then  begin  H[i]:=P[i]+i;  end;   end;  for i:=1 to 10 do  begin  write(' '+H[i]+' ');  end;   writeln; writeln;  writeln('Нечётным элементам присваиваем значения квадратов их индексов');  for i:=1 to 10 do  begin  if (i mod 2 <> 0) then  P[i]:=i*i;  end;   for i:=1 to 10 do  begin  if (i mod 2 <> 0) then  H[i]:=i*i;  end;  writeln('Массив P: ');  for i:=1 to 10 do  begin  write(' '+P[i]+' ');  end;
  writeln;  writeln('Массив H: ');  for i:=1 to 10 do  begin  write(' '+H[i]+' ');  end;   writeln; writeln; writeln('Напечатать индекс последнего из элементов, равных 0'); for i:=1 to 10 do  begin  if (P[i] = 0) then  index1:=i;  end;  writeln;  writeln('Индекс для массива P: '+index1);    for i:=1 to 10 do  begin  if (H[i] = 0) then  index2:=i;  end;  writeln;  writeln('Индекс для массива H: '+index2);  end.