Program n13_11; var a, b, c, p, x, k:integer; begin writeln ('увести цифру Єви'); readln (a); writeln ('увести цифру Аліни'); readln (b); writeln ('увести цифру Олесі'); readln (c); writeln ('увести цифру, що випала '); readln (p); x:='переможець' ; k:=0; if a=p then begin writeln (x, 'Єва '); k:=k+1; end; if b=p then begin writeln (x, 'Аліна '); k:=k+1 end; if c=p then begin writeln (x, 'Олеся '); k:=k+1 end; if k=0 then writeln ('переможців немає'); readln end.

Суть программы:

Сначала мы заполняем массив(в данной задаче ошибка в описании массива, там [1..6], а позже присваивают значение M[7], нужно исправить на [1..7] ). Далее у нас имеется цикл For k:= 2 to 7, который,начиная с M[2] проверяет условие: M[k] < n, т.е. элемент нашего массива меньше, чем n(которое изначально равно 15),если условие верно, то мы n присваиваем значение элемента массива, а в переменной z запоминаем индекс этого самого элемента. В конце мы выясним, что наименьший элемент массива равен 6(n=6), а его индекс равен 5(z=5).

P.S. Надеюсь, что доступно объяснил :)

Такие задания в принципе не решаемые, потому, что не указан критерий отбора, значит этот критерий я выбираю САМ, и он может отличаться от того, который имели в виду авторы задачи, поэтому и мой ответ может отличаться от их ответа, но это совсем не означает, что он неправильный.

Ну вот например, со второй группой слов. 

Поставим каждому слову в соответствие количество букв в нём.

Дебри - 5

Прения - 6

Игры - 4

Шахматы - 7

 

И я смело могу утверждать, что лишним является Игры, потому, что это единственное, у которого число букв - полный квадрат.

Но я также могу утверждать, что лишнее это Прения, потому, что это единственное чётное не квадрат,

Но я могу сказать, что лишнее Шахматы, потому что это единственное с количеством букв, равным максимальному простому числу в первом десятке

И т д...

И все мои ответы правильные и уверен на 100%, что не совпадают с мнением авторов задачи.

 

Поэтому, повторюсь, если чётко не указан критерий сравнения, ответ также нечёткий.