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

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

Дан массив длиной N (не более 100 элементов). Проверить, что в нем в встречаются все числа от 0 до k, где 0≤k

var
    i, j, k, N: integer;
    arr: array[1..20] of integer;
begin
   randomize();
   k:= 10;//ограничение диапазона поиска
   j:= 0;
   N:= 30;//ограничение диапазона случайных чисел
   for i:= low(arr) to high(arr) do
    begin
      arr[i]:= random(N);
      write(arr[i], ' ');
    end;
   writeln();
   writeln();
   for i:= low(arr) to high(arr) do
     begin
       for j:= 0 to k do
         begin
           if (arr[i] >= 0) and (arr[i] <= k) then
              begin
                writeln(arr[i]);
                break;
              end;
         end;
     end;
   readln();
end.