Задача 15 Урок 15
Primary tabs
Дан массив длиной N (не более 100 элементов). Проверить, что в нем в встречаются все числа от 0 до k, где 0≤k
type aArray = array [1..100] of integer; var k,p,i,j,s:integer; otrezokMass,ishodMass: aArray; function content(i,j: integer):boolean; begin if i=j then result:=true else result:=false; end; begin randomize(); k:=1; s:=0; while (k<=100) do begin ishodMass[k]:=random(100); k:=k+1; end; write('Исходный массив: '); for i:=1 to 100 do begin write(ishodMass[i], ' '); end; writeln(); writeln('Введите число меньше 100' ); readln(p); for i:=0 to (p-1) do begin otrezokMass[i]:=i; end; write('Массив до числа:' ); for i:=0 to (p-1) do begin write(otrezokMass[i], ' '); end; writeln(); writeln(); for i:=1 to p do for j:=1 to 100 do begin if (content(otrezokMass[i],ishodMass[j])=true) then s:=s+1; end; if s>=p then writeln('Все числа присутствуют') else writeln('Не все числа присутствуют'); readln(); end.
- Log in to post comments
- 439 reads
vedro-compota
Wed, 04/27/2022 - 20:32
Permalink
function unique(a,b: aArray)
-- должна возвращать boolean и в ней должен быть break
_____________
матфак вгу и остальная классика =)