Задача 15 Урок 15

Primary tabs

Submitted by Aleksandr on Tue, 08/17/2021 - 19:47

Forums:

Задача 15 Урок 15

Дан массив длиной 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
  • 2209 reads
vedro-compota's picture

vedro-compota

Tue, 08/17/2021 - 21:22 

function check(a: myArr; k, p, q: integer): string;

сделать возврат логического типа

_____________
матфак вгу и остальная классика =)

Aleksandr

Thu, 08/19/2021 - 19:58 

program lesson15_15;
type
    myArr = array[1..100] of integer;

function check(a: myArr; k, p, q: integer): boolean;
var
    i, j: integer;
begin
    for i := 0 to k - 1 do
    begin
        result := false;
        for j := p to q do
            if i = a[j] then
            begin
                result := true;
                break;
			end;

        if not result then
            exit;
	end;
end;

var
    arr: myArr;
    k, n, m, i: integer;
begin
    k := 5;
    n := 1;
    m := 20;

    randomize();
    for i := low(arr) to high(arr) do
        arr[i] := random(100);

    writeln(check(arr, k, n, m));

    readln();
end.
vedro-compota's picture

vedro-compota

Thu, 08/19/2021 - 20:38

решение засчитано

_____________
матфак вгу и остальная классика =)