Задача 14 Урок 15
Primary tabs
Дан массив длиной N (не более 100 элементов). Проверить, что в нем в
встречаются все числа от 0 до k, где 0
type myArr = array of integer; var n,k: integer; a: myArr; procedure printArray(a1: myArr); //п-а печати массива var i1: integer; begin for i1 := low(a1) to high(a1) do write(a1[i1], ' '); end; function f1(n1: integer; a1: myArr): myArr; // ф-я создаем массив размером N var i1: integer; begin SetLength(a1, n1); // устанавливаем новую длину массива randomize(); for i1 := low(a1) to high(a1) do //создаем массив a1[i1] := random(n1 + 1); result := a1; end; function f2(k1: integer; a1: myArr): boolean; //ф-я проверки, что есть все числа var i1, j1: integer; s: boolean; begin s := false; for i1 := 0 to k1 do begin s := false; for j1 := low(a1) to high(a1) do if i1 = a1[j1] then begin s := true; break; end; if s = false then break; end; result := s; end; begin writeln('Введите длину массива от 1 до 100'); readln(n); writeln('Введите число k: 0 <= k < 100'); readln(k); a := f1(n, a); printArray(a); writeln(); writeln('Все числа от 0 до k встречаются: ', f2(k, a)); readln(); end.
КОНСОЛЬ
Введите длину массива от 1 до 100 15 Введите число k: 0 <= k < 100 7 13 10 1 10 0 12 13 11 13 14 14 6 1 2 0 Все числа от 0 до k встречаются: FALSE
- Log in to post comments
- 727 reads
vedro-compota
Sun, 11/21/2021 - 13:19
Permalink
засчитано
засчитано
_____________
матфак вгу и остальная классика =)