Ответ:

Объяснение:

const

 n = 100;

var

 a:array[1..n] of integer;

 i, k:integer;

begin

 k:=1;

 for i:= 1 to n do begin

   a[i]:=k;

   if (i mod 2 = 0) then k:=k + 1;

 end;

 for i:= 1 to n do

   write(a[i], ' ');

 readln;

end.