урок 15 задача 16
Primary tabs
Дан массив длиной N (не более 100 элементов), состоящий из случайно выбранных чисел из диапазона от 0 до k, где 0≤k
program project1; type mas=array[1..100] of integer; var a:mas; n,k,i,j,kol,d,df:integer; h: boolean; function poisk(aa: mas; kk,jj,ii: integer): boolean; var u,g:integer; f: boolean; begin for u:=0 to kk do //числа, которые должны присутствововать в фрагменте begin for g:=jj to jj+ii-1 do //перебор элементов фрагмента, поиск чисел begin f:=false; if u=aa[g] then begin f:=true; break; end; end; if not f then break; end; result:=f; end; begin writeln('vvedite N'); readln(n); n:=30; writeln('vvedite k'); readln(k); k:=3; randomize(); for i:=1 to n do begin a[i]:=random(k+1); write(a[i],' '); end; writeln(); for i:=k+1 to n do //длина фрагмента на котором происходит поиск begin for j:=1 to n-i+1 do //элемент массива, от которого начинается фрагмент begin h:= poisk(a,k,j,i); if h then break; end; if h then break; end; if not h then writeln('massiv ne soderzhit vse chisla ot 0 do ',k) else writeln('min dlinna = ', i); readln(); end.
- Log in to post comments
- 782 reads
vedro-compota
Wed, 11/03/2021 - 19:09
Permalink
засчитано
засчитано
_____________
матфак вгу и остальная классика =)