Відомі порядкові номери і енергетичні потужності N підприємств галузі промисловості. Визначте порядковий номер підприємства з
найбільшою енергетичною потужністю.

т.к. n заранее не дано(и это все лишь фрагмент кода) то m при разных n будет получаться разный. n лежит в промежутке [-2;8]

потому, что тут m:=(l+r)div 2; при n<-2 получается индекс <0

и при n>8  в цикле индекс >7

а массив у нас всего 8 элементов

Поэтому в цикле я вывел все значения m при всех возможных значениях n

Надеюсь понятно объяснил.

при n=-2   m=0

при n=-1   m=0

при n=0   m=0

при n=1   m=1

при n=2   m=2

при n=3   m=3

при n=4   m=4

при n=5   m=5

при n=6   m=6

при n=7   m=6

при n=8   m=6

Pascal

var

 a:array [0..7] of integer = (34, 16, 16, 2, 2, 0, -4, -4);

 l, n, m, key, r:integer;

 flag:boolean;

begin

 for n:=-2 to 8 do begin

   key:=-4;

   L:=1;

   r:=n;

   flag:=false;

   Repeat

     m:=(l+r)div 2;

     if a[m]>key then

       l:=m+1

     else

      if a[m]=key then

        flag:=true

      else

        r:=m-1;

   until flag or (l>r);

   writeln('при n=',n,'   m=', m);

 end;

end.

a = 1; b = 4; c = 7

a = 1; b = 7; c = 4

a = 4; b = 7; c = 1

a = 4; b = 1; c = 7

Объяснение:

Вот код программы на C++:

#include <iostream>

using namespace std;

void main()

{

setlocale (LC_ALL, "RUS");

int a, b, c, M;

cout << "Введите число а: ";

cin >> a;

cout << "Введите число b: ";

cin >> b;

cout << "Введите число c: ";

cin >> c;

if (a > b)

{

 M = a;

}

else

{

 M = b;

}

if (c > b)

{

 M = c;

}

else

{

 M = b;

}

cout << "Наибольшее число: " << M << endl;

}

Можешь сам(а) на онлайн-компиляторе проверить выражения, если не уверен(а).