Program series17; var a,b,n,i: integer; bol: boolean; begin i: =0; n: =0; bol: =true; writeln('введите число b'); readln(b); writeln('введите число n'); readln(n); writeln('введите ',n,' целых чисел.'); while i < n do begin read(a); if (a> b)and(bol) then begin write(' ',b); bol: =false; end; write(' ',a); inc(i); end; end. причем здесь bol и как он работает объясните

Сложно понять, что нужно было сделать автору программы, но в любом случае сделано криво. ввод и вывод организованы так, что выводимые значения сливаются с вводимыми, образуя непонятные комбинации. программа запрашивает некоторое значение "в", на превышение которого потом она реагирует один раз. затем запрашивается количество чисел, которые надо ввести. эти числа вводятся в цикле (почему это цикл while - непонятно, обычно подобные вещи делают в цикле for) и тут же выводится, т.е. программа повторяет введенное число. в случае, когда введенное число первый раз превышает "в", перед этим числом выводится значение "в". именно для этого использована логическая переменная bol: после возникшего превышения она принимает значение false и отключает дальнейшую проверку на превышение.

Var a,b,n,i: integer; bol: boolean; begin   //инициализируем переменные   i: =0;   n: =0;   bol: =true;     //осуществляется ввод   writeln('введите число b: '); readln(b);   writeln('введите число n: '); readln(n);   writeln('введите ', n,' целых чисел.');     //цикл (с пред условием) будет повоторятся n раз   while i < n do       begin       //осуществляется ввод с клавиатуры           read(a);           //проверяем является (a больше b) и (bol = true)               if (a> b)and(bol) then               //если является                   begin                       //выводит значение b через пробел                       write(' ',b);                       //и присваивает bol = ложь                       bol: =false;                   end;                   //выводит значение а через пробел               write(' ',a);               //инкрементирует i, тоесть i: =i+1               inc(i);       end; end.

1-1

2-3

3-3

4-3

5-

6-

7-

8-