На летних каникулах все ученики 6 класса были со сверстниками в оздоровительном лагере или на море с родителями 18 учеников были в лагере а 12 отдахнули на море , при этом 6 учеников смогли побывать и в лагере и на море, сколько учеников в классе

чертим 2 пересекающихся круга.

12 чел на море

18 чел. в лагере

6 чел. и в лагере и на море (на пересечении кругов)

1) 18-6=12 (чел)  -были только в лагере

2) 12-6=6 (чел) - были только на море

3) 12+6+6(и в лагере и на море)=24 ученика в кассе

ответ: в классе 24 ученика

Uses   crt;
const  M = 100;
var  a: array [1..M] of integer; 
       i, max, k, n: integer;
begin  clrscr;   
repeat   
  writeln('Введите количество элементов массива');   
  readln(n); 
until (n <> 0) and (n>0);   

for i := 1 to n do 
begin   
   writeln('Введите [', i, '] элемент массива');   
   readln(a[i]); 
end;  

for i := 1 to n do   
 write(' ', a[i]);   

 writeln;   

max := a[1]; 
for i := 2 to n do  
   if a[i] > max then max := a[i]; 
writeln(' max= ', max);   

for i := 1 to n do   
   if a[i] = max then k := k + 1;   
writeln(' k= ', k);   
end.

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

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

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

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

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

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

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

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