Pascal Урок 15 Задача 12

Урок 15 задача 12

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

program U15Z12;
type
  mas=array[1..99] of integer;
var
  masiv:mas;
function SecCheck(masiv:mas):boolean;
var j,i,k,n,chet:integer;
begin
  chet:=0;
  writeln('Vvedite N');
  readln(n);
  writeln('Vvedite K');
  readln(k);
  if(k<n)and(k>=0) then;
  begin
    randomize();
    for i:= low(masiv) to n do
      masiv[i]:=random(n);
    for j:= 0 to k do
    begin
      for i:= 0 to n do
      begin
        if (j=masiv[i]) then
        begin
          inc(chet);
          break;
        end;
      end;
    end;
    if (chet = k) then
    begin
      writeln('V massive vstrechautsa vse elementi ot 0 do K');
      result:= true;
    end
    else
    begin
      writeln('V massive vstrechautsa Ne vse elementi ot 0 do K');
      result:= false;
    end;
  end;
end;
begin
  SecCheck(masiv);
  readln;
end.                        
vedro-compota's picture

переделать структуру, на входе функции два параметра: сам массив и число k

_____________
матфак вгу и остальная классика =)