Exel. пусть при откорме каждое животное ежедневно должно получать не менее 9 единиц питательного вещества s1, не менее 8 единиц питательного вещества s2 и не менее 12 единиц питательного вещества s3. для составления рациона используют два вида корма. содержание единиц питательных веществ в одном килограмме каждого вида корма и стоимость одного килограмма каждого вида корма в таблице. состоит в том, чтобы составить дневной рацион нужной питательности, чтобы цена при этом была минимальной.

При первом проходе программы

m=0

в цикле for сравниваем Если элемент массива под номером 1 (т.е. число 2) минус 2*m>1 то m равна текущему элементу массива.

т.к. 2-2*0=2 и это больше 0 то значение m становится равным 2

1 проход m=2

При втором проходе цикла фор сравниваем уже второй элемент массива, т.е.

Dat[2]-2*m>1

6-2*2>1

2>1

Условие выполняется значит значение m на 2 проходе равно 6

при дальнейших проходах цикла for мы больше не получим значений больше 1 т.к. текущее m=6, т.е. из элементов массива мы будем вычитать 12, т.е. ни одного положительного числа мы не получим, т.е. условие if не выполнится ни разу и значение m не изменится

ответ m=6

//Написал простейшую программу для наглядного примера. Суть в том, что ограничено число попыток ввода неправильного пароля

//attempts - количество попыток, counter - счетчик неудачных попыток

const

  attempts = 3;

  password = '12345';

var

  counter: integer;

  str: string;

begin

  counter := 0;

  repeat

     write('Введите пароль: ');

     readln(str);

     if not(str = password) then

     begin    

        counter := counter + 1;

        writeln('[неверный пароль] осталось попыток: ', attempts - counter);

        writeln();

     end;

     if (counter = attempts) then

     begin

        writeln('Попытки ввода закончились!');

        break;

     end;

  until (str = password);

  if (str = password) then

     writeln('Вы ввели правильный пароль!');

end.