Функция- проверка наличия определённых элементов в массиве (Урок 15 Задача 18)

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

Условие:

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

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

Видео-разбор:

• VK: https://vkvideo.ru/video-58271214_456239...
• Youtube: https://youtu.be/7hfieBX7sb0

Пример функции:

function proverka (a:Arr; k: integer): boolean;
var h, j: integer;
begin
  result:= false;
  for h:= 0 to k do
  begin
    for j:= low(a) to high(a) do
      if h =a[j] then //находим сооответствующий условию элемент
        break;
    if (h=k) and (h=a[j]) then
      result:=true;
    else
      break;  //случай, когда одно из чисел от 0 до k не найдено
  end;
end;