Задача 16 Урок 15

Дан массив длиной N (где 10≤N

var n:array [1..100] of integer;
    k,i,j,d,m,p:integer;
begin
  randomize();
  d:=0;
  for i:=1 to 100 do
    n[i]:=random(101);
  writeln('Vvedite interval chisel dlia poiskov: ');
  readln(k);
  writeln('Vvedite nachalnyi element: ');
  readln(m);
  writeln('Vvedite konechnyi element: ');
  readln(p);
  if((1<=m)and(m<p)and(p<100)) then
    for j:=m to p do
      begin
        if (n[j]=0) then m:=j;
        if(n[j]=d) then
          if(d=k) then
            begin
              writeln ('Vse elementi est');
              p:=j;
              writeln('Vse elementi lezat v otrezke ',m,' do ',p);
              break;
            end
          else
            d:=d+1
        else
          begin
            writeln('Ne vse elementi naideni');
            break;
          end;
      end;

end.   

Консоль:

Vvedite interval chisel dlia poiskov: 
5

Vvedite nachalnyi element: 
1

Vvedite konechnyi element: 
78

Ne vse elementi naideni