Преобразования текста. коля может задавать пете любые тексты и узнавать результаты преобразования. коли — отгадать задуманное правило. перед вами протокол игры. отгадайте правило. укажите, что должно получиться на месте вопросительного знака. а →→ б; мама→→ нбнб; эвм →→ югн; язык →→ аиъл; лис →→ ? мйт а →→ 1; мама →→ 4; эвм →→ 3; язык →→ 4; лис →→ ? а →→ а; мама →→ амам; эвм →→ вмэ; язык →→ зыкя; лис →→ ?

В первом случае каждая буква заменяется следующей буквой по алфавиту. (Не знаю как точно объяснить, но вот к примеру было М, по алафиту следующая Н). Соответственно, слово ЛИС будет преобразовано в МЙТ. ответ: МЙТ.
Во втором случае считается количество букв в слове. В слове ЛИС 3 буквы. ответ: 3.
В третьем случае первая буква в слове становится на последнее место, смещяя каждую букву.
ответ: ИСЛ

Программа представлена на скрине.

Далее под константой будет пониматься макроопределение (символическая константа)

Были созданы константы для обозначения флагов ингредиентов. Им даны осмысленные названия. Также была создана константа для формирования пустого заказа.

int ingredientsCount(Pizza&); - возвращает количество ингредиентов.

void addCheese(Pizza&); - добавляет в заказ сыр

void removeOnion(Pizza&); -  убирает из заказа лук

void togglePineapple(Pizza&);  - переключает ананасы

void addOnionIfMushroomsExist(Pizza&); - добавляет лук если есть грибы

Const
  nn = 50;
var
  a,b,nb:array[1..nn] of integer;
  i,n,j: integer;
begin
  Write('Введите количество элементов в массиве (n<51): ');
  Read(n);
  Writeln('Вводите элементы массива');
  j:=0;
  for i:=1 to n do
  begin
    Read(a[i]);
    if a[i]<0 then begin Inc(j); b[j]:=a[i]; nb[j]:=i end
  end;
  if j>0 then begin
    Write('Отрицательные элементы: ');
    for i:=1 to j do Write(b[i],' ');
    Writeln;
    Write('Индексы отрицательных элементов в массиве:');
    for i:=1 to j do Write(nb[i]:3);
    Writeln
  end
end.

Результаты тестирования:
Введите количество элементов в массиве (n<51): 9
Вводите элементы массива
3 5 -2 3 -2 0 -6 -8 1
Отрицательные элементы: -2 -2 -6 -8
Индексы отрицательных элементов в массиве:  3  5  7  8

Введите количество элементов в массиве (n<51): 8
Вводите элементы массива
-1 -2 -3 -4 0 -1 2 3
Отрицательные элементы: -1 -2 -3 -4 -1
Индексы отрицательных элементов в массиве: 1  2  3  4  6