Задача 14 Урок 15
Primary tabs
Дан массив длиной 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.
- Log in to post comments
- 777 reads