Задача 14 Урок 15
Primary tabs
Дан массив длиной N (не более 100 элементов). Проверить, что в нем в встречаются все числа от 0 до k, где 0≤k
program lesson15_14; type myArr = array[0..99] of integer; function check(a, b: myArr; k: integer): string; var i, j: integer; begin for i := low(a) to high(a) do for j := low(b) to k - 1 do if a[i] = b[j] then begin b[j] := -1; break; end; for i := low(b) to k - 1 do if b[i] <> -1 then begin result := 'no'; exit; end; result := 'yes'; end; var arr1: myArr; arr2: myArr; k, i: integer; begin k := 5; for i := low(arr2) to k - 1 do arr2[i] := i; randomize(); for i := low(arr1) to high(arr1) do arr1[i] := random(100); write(check(arr1, arr2, k)); readln(); end.
- Log in to post comments
- 1668 reads
vedro-compota
Thu, 08/12/2021 - 20:19
Permalink
можно решить без второго
можно решить без второго массива
_____________
матфак вгу и остальная классика =)
Aleksandr
Tue, 08/17/2021 - 19:47
Permalink
решение
vedro-compota
Tue, 08/17/2021 - 21:21
Permalink
function check(a: myArr; k:
-- лучше возвращать boolean
-- можно сделать оптимальнее с break
_____________
матфак вгу и остальная классика =)
Aleksandr
Thu, 08/19/2021 - 19:58
Permalink
решение
vedro-compota
Thu, 08/19/2021 - 20:39
Permalink
решение засчитано
решение засчитано
_____________
матфак вгу и остальная классика =)