Перемещайке составить слова. придумай алгоритмы. цель: получить слово. исходное положение: д и с. а к е т

Чего надо сделать если найти здесь слово тогда дискет

Const   n = 50; {максимальное количество чисел в последовательности}   t = -77; {число-ограничитель, означающее конец ввода} type   ta = array[1..n] of integer; var   a: ta; {массив членов последовательности}   az: ta; {массив, содержащий номера нулей в последовательности}   kz: integer; {количество членов в массиве az}    i, iz, p, n1, n2: integer;   flag: boolean; begin   {вводим числа и сразу же отслеживаем номера нулей в последовательности}   writeln('вводите последовательность чисел, окончание ввода по -77');   i : = 0; iz : = 0;   repeat       read(p);       if p < > t then begin           i : = i + 1;           a[i] : = p;           if p = 0 then begin               iz : = iz + 1;               az[iz] : = i;           end       end   until p = t;   kz : = iz;   writeln('вывод последовательностей');   {1. до первого встреченного нуля}   for i : = 1 to az[1] - 1 do write(a[i], ' ');   writeln;   {2. остальные промежутки}    for iz : = 1 to kz do   begin       for i : = az[iz] + 1 to az[iz + 1] - 1 do write(a[i], ' ');       writeln;   end end. тестовое решение: вводите последовательность чисел, окончание ввода по -77 1 2 3 0 5 6 7 0 0 10 11 12 13 0 15 16 17 18 19 20 -77 вывод последовательностей 1 2 3 5 6 7 10 11 12 13