Question

Что означают в этом коде компоненты k и s( выделено на фото)

задание звучит так: Составьте программу отыскания наименьшего среди тех элементов одномерного массива A(N), что лежат вне интервала (C,D)


program z1;

uses crt; {Подключение модуля экрана}

var

a:array [1..100] of integer;

c,b,d,n,min,s,k,i:integer;

begin

clrscr;{Очистка экрана}

write('Введите интервал c:');

readln(c); {Вводится интервал c}

write('Введите интервал d:');

readln(d);{Вводится интервал d}

write('Введите размерность массива n=');

readln(n); {Вводится размерность массива}

if c>d then

begin {Проверка интервала с>d и смена значений с=d и d=c}

b:=c;

c:=d;

d:=b;

end;

s:=0;{Присваивание начального значения min}

For i:=1 to n do

begin

write('a[',i,']=');

readln(a[i]); {Ввод массива}

end;

For i:=1 to n do

begin

if (a[i] d) then {Выполнение определенного логического условия}

begin

k:=1;

s:=s+1;{Счетчик для нахождения первого элемента не входящего в интервал(c,d)}

if s=1 then

min:=a[i];{Присваивание min значение первого элемента массива}

if a[i]
min:=a[i];

end;

end;

if k=1 then {Выполнение определенного логического условия для вывода решения}

write('Минимальный элемент не входящий в интервал(',c,',',d,'):',min)

else

write('Все элементы входят в интервал');

readln; {Пауза по завершению задачи}

end.

Answer 1

Ответ:

для гахождения элемента в интервале