Нужно! подберите наиболее подходящий носитель информации для следующих ситуаций: носители информации: 1. внешний жесткий диск емкостью до 500гб; 2. mikro cd-card карта памяти; 3. mp3-плеер; 4. sd-card карта памяти; 5. жесткий диск емкостью 1 тб и более; 6. cd-диск; 7. usb flash drive; ситуации: а) хранение фотографий в телефоне; б) хранение ресурсов научной библиотеки мурманской областной; в) временное хранение рабочих документов, возможно небольших видеозаписей, фотографий; г) хранение личных фотографий за последние 15 лет; д) хранение музыкальной коллекции и постоянный доступ к ее содержимому; е) хранение фотографий из отпуска; ж) сохранение курсовой работы и сдача ее на проверку;

Ну тут чисто логически
а-2
б-5
в-4
г-1
д-3
е-6
ж-7

program raf105;

const

 n = 10;

var

 a,b,c: array[1..n] of integer;

 i,j,x,max,mpos,b1,c1: integer;

begin

write('Введите максимальное число: ');

readln(x);

writeln('Заполните массив из ',n,' элементов');

for i:=1 to n do

begin

 readln(a[i]);

 if a[i] > x

   then begin

     b1:= b1+1;

     b[b1]:= a[i];

   end

   else begin

     c1:= c1+1;

     c[c1]:= a[i];

   end;

end;

for i:=1 to c1 do

begin

 max:= -10000;

 for j:=i to c1 do

   if c[j] >= max

     then begin

       max:= c[j];

       mpos:= j;

     end;

 c[mpos]:= c[i];

 c[i]:= max;

end;

for i:=1 to b1 do

 a[i]:= b[i];

for i:=1 to c1 do

 a[i+b1]:= c[i];

write('Отсортированный массив: ');

for i:=1 to n do

 write(a[i],' ');

end.

PascalABC 3.4.2

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

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

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

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

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

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

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

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