Задание 14 Урок 15. Одномерные массивы
Primary tabs
{15 - 14 Дан массив длиной N (не более 100 элементов).
Проверить, что в нем в встречаются все числа от 0 до k, где 0≤k
const N = 15; type myArr = array[1..N] of integer; procedure print(arr: myArr; msg:string); var i:integer; begin writeln(msg); for i:=low(arr) to high(arr) do write(arr[i], ' '); writeln(); end; function arrayCheck(arr:myArr; k:integer): boolean; var i,j: integer; flag:boolean; tempArr: myArr; begin for i:= 1 to high(tempArr) do tempArr[i] := 0; // для красоты + метод без инициации своего типа массива for j:=1 to k do for i:=1 to high(arr) do if (j = arr[i]) then tempArr[j]:= j; writeln(); print (tempArr, 'temporary array: '); // для наглядности for j:=1 to k do if (tempArr[j] = 0) then flag:= false; result:=flag; end; var i,k:integer; arr: myArr; begin randomize; for i:= low(arr) to high(arr) do arr[i] := random(11); print(arr, 'original arr'); writeln('write k num: '); readln(k); writeln('array check in progress', arrayCheck(arr, k)); readln(); end.
//original arr //2 4 0 9 7 10 9 9 3 8 1 1 9 0 10 //write k num: //4 //array check in progress //temporary array: //1 2 3 4 0 0 0 0 0 0 0 0 0 0 0 //TRUE //original arr //4 6 9 6 9 4 8 6 7 9 3 10 2 10 6 //write k num: //5 //array check in progress //temporary array: //0 2 3 4 0 0 0 0 0 0 0 0 0 0 0 //FALSE
- Log in to post comments
- 1440 reads