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

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

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

program task_14_lesson_15;
const N = 30;
var a: array[1..N] of integer;
  i, j, k: integer;
  c: integer; // кол-во уникальных чисел которые должен содержать массив
begin
  randomize();
  k := N - 1;
  c := 0;
  for i := 1 to N do
    a[i] := i-1; //1 + random(35); // <--- Записать случайные значения чтобы проверить обратное
  for j := 0 to k do
    for i := 1 to N do
      if j = a[i] then // если какой либо эл-т массива равен К1 то запишем +1
        begin
          c += 1;
          break;
        end;
  for i := low(a) to high(a) do
    write(a[i], ' ');
  writeln();
  if c >= k then  // кол-во совпадений рано кол-ву уникальных чисел
    writeln('100% sovpadeniy ot 0 do ',k)
  else
    writeln('ne vse chisla 0 do ',k);
  readln();
end.

КОНСОЛЬ вариант 1

0 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
100% sovpadeniy ot 0 do 29

КОНСОЛЬ вариант 2

23 18 27 17 19 16 21 17 27 32 30 18 15 28 2 16 20 7 15 31 3 12 25 24 31 20 13 27 34 23
ne vse chisla 0 do 29