Урок 15. Задача 16.
Primary tabs
Дан массив длиной N (не более 100 элементов). Проверить, что в этом массиве на отрезке индексов от m до p ( 1≤m
Указание: Проверку массива на соответствие условиям задачи вынести в подпрограмму (функцию)
type newArr = array [1..100] of integer; var i, j, a, b, c :integer; Arr, Arr_N :newArr; fl :boolean; function num_in(a_1 :integer; Arr_2 :newArr) :boolean; var i, j, a_2, b, c :integer; fl :boolean; begin fl := true; a_2 := a_1 * 2; for i := a_1 to a_2 do begin b := 0 + random(99); // значения сравнивания со значениями отрезка массива for j := a_1 to a_2 do if Arr[i] = b then // begin fl := false; break; end; if not fl then break; end; num_in := fl; end; begin write('Enter an integer 2-49: '); readln(a); // задаем отрезок индексов randomize; for i := 1 to 100 do // инициализация исходного массива Arr[i] := 0 + random(100); fl := num_in(a, Arr); if fl then write('Full presence of values') else write('No complete match'); readln(); end.
- Log in to post comments
- 742 reads
vedro-compota
Wed, 07/13/2022 - 20:26
Permalink
function num_in(a_1 :integer;
-- в сигнатуре должно быть 4 параметра: 2 граница отрезка, число k и сам проверяемый массив
--
_____________
матфак вгу и остальная классика =)
Dennis80
Tue, 07/19/2022 - 18:46
Permalink
type newArr = array [1..100]
vedro-compota
Wed, 07/20/2022 - 20:06
Permalink
засчитано
засчитано
_____________
матфак вгу и остальная классика =)