Задача 15 Урок 15
Primary tabs
Дан массив длиной N (не более 100 элементов). Проверить, что в этом массиве на отрезке индексов от m до p ( 1≤m
program lesson15_15; type myArr = array[1..100] of integer; function check(a: myArr; k, p, q: integer): string; var b: boolean; i, j: integer; begin for i := 0 to k - 1 do begin b := false; for j := p to q do if i = a[j] then begin b := true; break; end; if not b then begin result := 'no'; exit; end; end; result := 'yes'; end; var arr1: myArr; k, n, m, i: integer; begin k := 5; n := 1; m := 20; randomize(); for i := low(arr1) to high(arr1) do arr1[i] := random(100); writeln(check(arr1, k, n, m)); readln(); end.
- Log in to post comments
- 1503 reads
vedro-compota
Tue, 08/17/2021 - 21:22
Permalink
function check(a: myArr; k, p
сделать возврат логического типа
_____________
матфак вгу и остальная классика =)
Aleksandr
Thu, 08/19/2021 - 19:58
Permalink
решение
vedro-compota
Thu, 08/19/2021 - 20:38
Permalink
решение засчитано
решение засчитано
_____________
матфак вгу и остальная классика =)