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

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

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

program U15Z14;
var a: array [1..100] of integer;
    i,n,k,e,j: integer;
begin
  writeln('vvedite n');
  readln(n);
  writeln('vvedite k');
  readln(k);
  randomize();
  for i:=1 to n do
    begin
    a[i]:=random(n+1);
    write(a[i],' ');
    end;
  writeln();
  e:=0;
  for i:=0 to k do
    for j:=1 to n do
      if i=a[j] then
        begin
          e:=e+1;
          break;
        end;
  if (e=k+1) then
    writeln(' v massive vstrechautsya vse chisla ot 0 do ',k)
  else
    writeln(' v massive NE vstrechautsya vse chisla ot 0 do ',k);
  readln();
end.