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

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

РЕШЕНИЕ

program task_15_lesson_15;
var a: array[1..50] of integer;
  i, j, m, p, k: integer;
  count: integer;
begin
  writeln('kakoy otrezok proverit` ? ot m do P');
  writeln('m : ');
  readln(m);
  writeln('p : ');
  readln(p);
  writeln('Proverka nalicia cisel ot 0 do K, vvedite K : ');
  readln(k);
  count := 0;
  for i := 1 to 50 do
    a[i] := i;
  for i := m to p do   // нижняя граница и верхняя заданы пользователем
      for j := 0 to k do   // по условию  0 <= k < n
        if j = a[i] then
          begin
            count += 1;
            break;
          end;
  for i := low(a) to high(a) do
    write(a[i], ' ');
  writeln();
  if count = k then
    writeln('sovpsdenie 100%')
  else
    writeln('kolvo sovpadeniy ', count);
  readln
end. 

консоль:

kakoy otrezok proverit` ? ot m do P
m :
5
p :
10
Proverka nalicia cisel ot 0 do K, vvedite K :
10
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50
kolvo sovpadeniy 6