Задача 14 урок 15
Primary tabs
Дан массив длиной N (не более 100 элементов). Проверить, что в нем в встречаются все числа от 0 до k, где 0≤k
<a href="http://fkn.ktu10.com/?q=node/8614">Задача 14 урок 15</a> var a: array[1..20] of integer; k, i, j, C: integer; begin randomize(); C:=0; //счетчик совпадений диапазона for i:=low(a) to high(a) do a[i]:= random(20); writeln('Enter k'); write('chislo k: '); readln(k); writeln('massiv:'); for i:=low(a) to high(a) do write(a[i], ' '); for j:=0 to k do //варианты от 0 до к begin for i:=low(a) to high(a) do if a[i] = j then //поиск совпадений в массиве begin C:=C+1; //при совпадении - счетчик +1 break; end; if C=k then //все числа есть в массиве begin writeln(); writeln('vse ', k, ' chisla v massive'); break; end; end; if C < k then //если совпадения не все begin writeln(); writeln('ne vse chisla v massive'); end; readln(); end.
- Log in to post comments
- 725 reads
nglag
Wed, 10/06/2021 - 20:02
Permalink
Урок 15 задача 14
Урок 15 задача 14
vedro-compota
Wed, 10/06/2021 - 20:10
Permalink
неверное форматирование.
неверное форматирование.
решение засчитано
_____________
матфак вгу и остальная классика =)