Ниже приведен алгоритм на 5 языках. Будет проведено 9 запусков программы, при которых в качестве значений переменных х и y введут следующие пары чисел (22,19), (10, 16), (16,5), (7, 32), (5,25),(14,13),(15,15),(13,-12),(15,24).Значение параметра В каждый раз одно и тоже. При каком наибольшем значении параметра В программа напечатает "да" ровно 5 раз с подробным описанием

1)

сколько человек будет обедать? если меньше одного то дальше не идем

дальше довольно сложно, надо или выяснить кто что бы хотел есть, потом или прийти к общему решению или каждому готовить свое

или наоборот отталкиваться от имеющихся продуктов и немного от желаний едоков (более реальная ситуация)

короче все равно довольно сложная задача и решать ее надо в контексте

Например в контексте циклопа на обед будет юная девствиница

2)

в обыдености легко - берем чек и смотрим нижнюю цифру

в классике жанра - кол-во каждого товара и цены на каждый товар

3)

обьем результата (сколько порций или литров)

пересчет колва указаных ингридиентов на нужное колво результата

наличие продуктов указаных в рецепте

что будем делать с теми которых нет? докупать или импровизировать?

наличие необходимых инструметов ? (без духовки не испечешь)

достаточно ли ясно, подробно описан рецепт для квалификации того кто будет готовить

Держи 1 и 3 ;) :

1)

Program solution;
Uses Crt;
Var i, poloz, otrits, zero : Byte;
n : integer;

Begin
ClrScr;
poloz := 0;
otrits := 0;
zero := 0;

for i := 1 to 10 do
        begin
        readln(n);
        if n > 0 then poloz := poloz + 1;
        if n < 0 then otrits := otrits + 1;
        if n = 0 then zero := zero + 1;
        end;

write('+: ', poloz, ', -: ', otrits, ', 0: ', zero);

ReadKey;
End.

3:

Program solution;
Uses Crt;
Var sum, num, count : Word;

Begin
ClrScr;
sum := 0;
count := 0;

while sum <= 100 do
        begin
        write(': ');
        readln(num);
        sum := sum + num;
        count := count + 1;
        end;

writeln('Было введено чисел: ', count);

ReadKey;
End.