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

Задача 15 урок 15

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

program U15Z15;
var a: array [1..100] of integer;
    n,m,p,k,i,e,j: integer;
begin
  writeln('vvedite n');
  readln(n);
  writeln('vvedite m,p');
  readln(m,p);
  writeln('vvedite k');
  readln(k);
  randomize();
  for i:=1 to n do
    begin
    a[i]:=random(n+1);
    write(a[i],' ');
    end;
  writeln();
  e:=0;
  for i:=0 to k do
    for j:=m to p do
      if i=a[j] then
        begin
          e:=e+1;
          break;
        end;
  if (e=k+1) then
    writeln(' v massive vstrechautsya vse chisla ot 0 do ',k,' na otrezke indeksov ot ',m,' do ',p)
  else
    writeln(' v massive NE vstrechautsya vse chisla ot 0 do ',k,' na otrezke indeksov ot ',m,' do ',p);
  readln();
end.