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

Задача 18 Урок 15:

Дан массив длиной N (не более 100 элементов). Проверить, что в этом массиве на отрезке индексов от m до p ( 1≤m

Указание: Проверку массива на соответствие условиям задачи вынести в подпрограмму (функцию)

program u15z18;
type
  massiv = array[1..100] of integer;
var
  m: massiv;
  k,i,x,t,p: integer;

function f1 (m: massiv; a,b,c: integer): integer;
var
  z,j,q: integer;
begin
  for j:=1 to a do
  begin
    q:=0;
    for z:=b to c do    //проверка на отрезке
    begin
      if j=m[z] then
        q:=1;
    end;
      if q=0 then       //если не встретили число то выходим
        break;
   end;
   result:=q;
end;

begin
  randomize();
  for i:=low(m) to high(m) do
  begin
    m[i] := random(100)+1;
    write (m[i], ' ');
  end;
  writeln;
  writeln('Vvedite k');
  readln(k);
  writeln('Vvedite m u p');
  readln(t);
  readln(p);
  x:= f1(m,k,t,p);
  if x=0 then
    write ('No')
  else
    write ('Yes');
  readln();
end.