Задача 17 Урок 15
Primary tabs
Дан массив длиной N (не более 100 элементов). Проверить, что в нем в встречаются все числа от 0 до k, где 0≤k
Указание: Проверку массива на соответствие условиям задачи вынести в подпрограмму (функцию)
program u15z17; type massiv = array[1..100] of integer; var m: massiv; k,i,x: integer; function f1 (m: massiv; a: integer): integer; var z,j,q: integer; begin for j:=1 to a do begin q:=0; for z:=low(m) to high(m) do begin if j=m[z] then q:=1; end; if q=0 then //если не встретили число то выходим break; end; result:=q; end; begin randomize(); for i:=low(m) to high(m) do begin m[i] := random(100)+1; write (m[i], ' '); end; writeln; writeln('Vvedite k'); readln(k); x:= f1(m,k); if x=0 then write ('No') else write ('Yes'); readln(); end.
- Log in to post comments
- 313 reads