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

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

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

type
  aArray = array [1..100] of integer;
  var
  k,p,i,j,s,rLow,rHigh:integer;
  otrezokMass,ishodMass: aArray;

function content(i,j: integer):boolean;
begin
  if i=j then
    result:=true
  else
    result:=false;
end;

begin
  randomize();
  k:=1;
  s:=0;
  while (k<=100) do
  begin
    ishodMass[k]:=random(100);
    k:=k+1;
  end;
  write('Исходный массив: ');
  for i:=1 to 100 do
  begin
    write(ishodMass[i], ' ');
  end;
  writeln();
  writeln('Введите число меньше 100' );
  readln(p);
  for i:=0 to (p-1) do
  begin
    otrezokMass[i]:=i;
  end;
  write('Массив до числа:' );
  for i:=0 to (p-1) do
  begin
    write(otrezokMass[i], ' ');
  end;
  writeln();
  writeln('Введите отрезок ');
  readln(rLow,rHigh);
  for i:=rLow to rHigh-1 do
  begin
    write(ishodMass[i], ' ');
  end;
  writeln();
  for i:=0 to p do
    for j:=rLow to rHigh-1 do
    begin
      if (content(otrezokMass[i],ishodMass[j])=true) then
        s:=s+1;
    end;
    if s>=p then
      writeln('Все числа присутствуют')
    else
      writeln('Не все числа присутствуют');
  readln();
end.