циклы в паскале

Ответ от Gennady[гуру]
Доброго времени суток.
Прежде чем задавать цикл нужно определиться, какй цикл требуется, поскольку в паскале существует три типа циклов.
1. Цикл с заранее известным числом повторений: for <начальное значение> to (downto) <конечное значение> do ...
Если <начальное значение> меньше <конечное значение>, то используется to в противном случае, downto
2. Цикл с предусловием: while <условие> do ...
3. Цикл с постусловием: repeat ...until <условие>
<условие> это переменная или выражение логического типа.
Цикл с предусловием выполняется при условии равном ИСТИНА, а цикл с постусловием - ЛОЖЬ.
Поскольку в цикле с предусловием условие проверяется до начала цикла, то он может не выполнится ни разу, а цикл с постусловием выполняется по-ркйней мере один раз.
В вашем случае для подсчета количества четных элементов можно применять первый тип, поскольку известна размерность матрицы. Выглядеть это будет так.
k := 0; {количество четных элементов}
for i:=1 to n do if A[i,i] mod 2 = 0 then k := k + 1;
Удачи!