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

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

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

var a: array[1..100] of integer;
 k, i, c, z: integer;
begin
  randomize();
  z:=0;  //количество совпадений
  for i:=low(a) to high(a) do //заполняем массив
    a[i]:= random(100);
  writeln('Enter k');
  readln(k);

  for c:=0 to k do      //варианты от 0 до к
    begin
    for i:=low(a) to high(a) do  //сравниваем с основным рядом N
      if a[i] = c then
        begin
          z:=z+1;  //если нашли совпадения счетчик +1
          break;
        end;
    if z=k then  //если совпадения=к заканчиваем поиск успехом
      begin
        writeln(k, 'sovpadeny');
        break;
      end;
    end;
  if z < k then   //если совпадений по итогу < k сообщаем
    writeln('net', k, 'sovpadeny');

  readln();
end.