задача 14 урок 15
Primary tabs
Дан массив длиной N (не более 100 элементов). Проверить, что в нем в встречаются все числа от 0 до k, где 0≤k
program task_14_lesson_15; const N = 30; var a: array[1..N] of integer; i, j, k: integer; c: integer; // кол-во уникальных чисел которые должен содержать массив begin randomize(); k := N - 1; c := 0; for i := 1 to N do a[i] := i-1; //1 + random(35); // <--- Записать случайные значения чтобы проверить обратное for j := 0 to k do for i := 1 to N do if j = a[i] then // если какой либо эл-т массива равен К1 то запишем +1 begin c += 1; break; end; for i := low(a) to high(a) do write(a[i], ' '); writeln(); if c >= k then // кол-во совпадений рано кол-ву уникальных чисел writeln('100% sovpadeniy ot 0 do ',k) else writeln('ne vse chisla 0 do ',k); readln(); end.
КОНСОЛЬ вариант 1
0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 100% sovpadeniy ot 0 do 29
КОНСОЛЬ вариант 2
23 18 27 17 19 16 21 17 27 32 30 18 15 28 2 16 20 7 15 31 3 12 25 24 31 20 13 27 34 23 ne vse chisla 0 do 29
- Log in to post comments
- 709 reads