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

Const n=20; var a,i,m: integer; mass: array[1..n] of integer; begin m: =0; write('а= '); read(a); writeln('введите числа: '); for i: =1 to n do begin mass[i]: =random(40)-10; writeln('mass[',i,']= ',mass[i]); if (mass[i]> a) and (i mod 2< > 0) then m: =m+1; end; writeln('кол-во элементов больших а и стоящих на нечетных местах равно ',m); end.

Фамилия брюнета ивана - антонов, борисов, глебов или дмитриев. но антонов и глебов не женаты, а иван женат на сестре жены дмитриева. поэтому иван имеет фамилию борисов. егоров блондин, то есть его имя - борис, дмитрий, антон или глеб. но так как человек, фамилия которого совпадает с именем егорова, женат, то имена антон и глеб исключаются. кроме того, теперь можно исключить и имя борис: в этом случае из условия следовало бы, что имя борисова - егор, а мы уже выяснили, что его зовут иван. методом исключения получаем, что имя егорова - дмитрий. следовательно, фамилия бориса совпадает с именем дмитриева. отсюда, кстати, следует, что борис - не иванов. поэтому для блондина иванова остаются только два имени - антон или глеб. но глеб отпадает по условию (его фамилия не иванов, а лишь совпадает с именем иванова). значит, иванова зовут антон. тогда глеб имеет фамилию антонов. соответственно, неженатый егор - глебов. остались только василий и борис, фамилии которых - васильев и дмитриев. ясно, что фамилия бориса - васильев, а василия - дмитриев.

Цикл while.
В цикле с условием while цикл выполняется, пока истинно задающее его условие. Поэтому этот цикл также иногда называют циклом "пока". Часто цикл while используется, когда невозможно заранее предсказать, сколько раз необходимо выполнить тело цикла. В повседневной жизни цикл while можно встретить в алгоритмах, вроде "Пока в пределах видимости есть машины, стоять на месте" или "Пока в ящике есть детали, достать деталь из ящика".

В следующей программе цикл while используется подобно циклу for для вывода на экран всех чисел от 1 до 10:

i=1
while i<=10:
print i
i=i+1
В этой программе переменной i присваивается значение 1. Затем начинается цикл (ключевое слово while) с проверяемым условием i<=10. Тело цикла содержит две инструкции: вывод на экран значения переменной i и увеличение значения переменной i на 1.

При выполнении этого цикла проверяется условие i<=10. Поскольку значение i изначально равно 1, то условие верно и выполняется тело цикла: на экран выводится значение переменной i, то есть 1 и переменной i присваивается значение i+1, то есть 2. Снова проверяется условие, поскольку оно верно, то выполняется блок цикла: на экран выводится число 2 и переменной i присваивается значение 3. Опять проверяется значение цикла, и так далее до тех пор, пока проверяемое условие истинно.