массив что сдесь k:=k+1; и b[k]:=i что к чему присваивается помогите разобраться

[Вячик]

(*даны целые числа а1,..аn, пусть М-наибольшее а м-наименьшее из а1,..аn,
получить в порядке возрастания все целые из интервала (М,м) которые не входят в последовательность а1,..аn*)

program pr;
const n=10;
type telem=integer;
var a:array[1..n] of telem;
****b:array[1..1000] of telem;
j,i,k,x,min,max: telem;

begin
*writeln('введите элименты массива ');
*for i:=1 to n do
*read(a[i]);
*for i:=1 to n do
***for j:=i to n do
***if (a[j]<a[i]) then
*****begin
********x:=a[i];
********a[i]:=a[j];
********a[j]:=x;
*****end;
*min:=a[1];
*max:=a[n];
*j:=1;
*k:=0;
*for i:=min to max do
***if a[j]=i then
*****j:=j+1
***else begin
*****k:=k+1;
*****b[k]:=i;
***end;
*Writeln;
*for i:=1 to k do Write(b[i],' ');
*Readln;
End.

Только звездами больше код не украшай. Есть кнопочка # для украшения выделенного кода вместе с левыми пробелами и табуляцией
Модератор

[Serge_Bliznykov]

Вячик, код, похоже, рабочий и задачу свою выполняет, хоть и не безупречен.
В чём суть вопроса?
если Вы про код

for i:=min to max do
 if a[j]=i then
     j:=j+1
  else begin
    k:=k+1;
    b[k]:=i;
 end;

то тут всё просто. исходный массив у нас отсортирован.
перебираем все целые числа от минимального значения до максимального.
если очередное число совпадает с числом в исходном массиве, то увеличиваем счётчик в массиве J
иначе данного числа в исходном массиве нет, его записываем в массив B
(для этого увеличиваем счётчик/индекс - переменную K и сохраняем число в массив B b[k]:=i;
вот и всё.