Задача 15 Урок 15
Primary tabs
Дан массив длиной N (не более 100 элементов). Проверить, что в этом массиве на отрезке индексов от m до p ( 1≤m<p≤N, считая что массив индексируется с единицы) встречаются все числа от 0 до k, где 0≤k<N.
var i, n, k, m, p: integer; z: boolean; a: array of integer; begin randomize(); write('Введите длину массива N не более 100: '); readln(n); write('Введите первый индекс m, 0<=m<N: '); readln(m); write('Введите первый индекс p, m<p<=N: '); readln(p); 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 := m to p 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
- 550 reads