Задача 14 Урок 15
Primary tabs
Дан массив длиной N (не более 100 элементов). Проверить, что в нем в встречаются все числа от 0 до k, где 0≤k<N.
var i, n, k: integer; z: boolean; a: array of integer; begin randomize(); write('Введите длину массива не более 100: '); readln(n); SetLength(a, n); for i := 0 to n - 1 do a[i] := random(n + 1); k := random(n); write('Массив: '); for i := 0 to n - 1 do write(a[i], ' '); writeln(); writeln('k=', k); repeat z := false; for i := 0 to n - 1 do if a[i] = k then z := true; if z then k -= 1 else break; until k < 0; if k = -1 then writeln('Массив правильный') else writeln('Массив неправильный'); readln(); end.
- Log in to post comments
- 925 reads