массив с использованием цикла-для

[veronika55214]

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

[Mad_Cat]

const nmax = 255;
var
  a: array[0 .. Nmax] of byte;
  n: integer;
  i: integer;
procedure print(T: integer);
var i: integer;
begin
  for i := 1 to T do write(a[i]:3);
  writeln
end;
procedure swap(var a, b: byte);
var T: byte;
begin T := a; a := b; b := T end;

procedure solve(T: integer);
var i: integer;
begin
  if T >= n then print(t)
  else
    for i := T + 1 to n do begin
      swap(a[T+1], a[i]);
      solve(T+1);
      swap(a[t+1], a[i])
    end
end;
begin
  readln(N);
  for i := 1 to n do a[i] := i;
  solve(0); readln;
end.

(c) Volvo

3
1 2 3
1 3 2
2 1 3
2 3 1
3 2 1
3 1 2

[veronika55214]

В некотором цехе имеется определенное количество станков, требующих наладки. Известно время наладки каждого станка.
Учитывая более высокую работоспособность наладчика в начале рабочего дня, требуется составить график его работы, указав порядковые номера станков, если наладка одного станка требует непрерывной работы.

[Vanta11a]

Наработки? Размер благодарности?