Задача 15 Урок 15
Primary tabs
Задача 15 Урок 15Дан массив длиной N (не более 100 элементов). Проверить, что в этом массиве на отрезке индексов от m до p ( 1≤m
var i, j, k, N: integer; m, p: integer; arr: array[1..30] of integer; begin randomize(); k:= 10;//ограничение диапазона поиска j:= 0; N:= 30;//ограничение диапазона случайных чисел m:= 2;//начальный индекс диапазона p:= 28;//конечный индекс диапазона for i:= low(arr) to high(arr) do begin arr[i]:= random(N); write(arr[i], ' '); end; writeln(); writeln(); for i:= m to p do begin for j:= 0 to k do begin if (arr[i] >= 0) and (arr[i] <= k) then begin writeln(arr[i]); break; end; end; end; readln(); end.
- Log in to post comments
- 953 reads
vedro-compota
Sun, 09/05/2021 - 12:42
Permalink
оформить как функцию,
оформить как функцию, возвращающую boolean
_____________
матфак вгу и остальная классика =)
alterMann
Tue, 09/07/2021 - 21:31
Permalink
Сделал функцию
Сделал функцию которая проверяет наличие элемента, и возвращает boolean
vedro-compota
Wed, 09/08/2021 - 19:45
Permalink
function coincidence(var mas:
проверить по числу переменных
_____________
матфак вгу и остальная классика =)