Конечно плохо то, что Вы не указали размерность массива, но в рамках решения задачи допустим, что размер массива = 10. Тогда, программа примет следующий вид:
VAR A: ARRAY [1..10] OF INTEGER; i, count: BYTE;
BEGIN
count := 0;
FOR i := 1 TO 10 DO
READLN (A[i]); {Заполняем массив}
FOR i := 1 TO 9 DO
IF (A[i] MOD 2 = 0) AND (A[i+1] MOD 2 = 0) THEN INC (count);
Fluorum2006
Массив заполняется процедурой ввода с клавиатуры - READLN. INC - это увеличение значения переменной на 1. Если бы было INC (count, 3), к примеру, то это значило бы, что переменная count увеличивается на 3
Fluorum2006
Я же даже небольшой комментарий написал - READLN (A[i]); {Заполняем массив}. По сути, INC (count) это тоже самое, что count := count + 1; просто такая запись мне привычнее и немного короче, но смысла не меняет
Answers & Comments
Конечно плохо то, что Вы не указали размерность массива, но в рамках решения задачи допустим, что размер массива = 10. Тогда, программа примет следующий вид:
VAR A: ARRAY [1..10] OF INTEGER; i, count: BYTE;
BEGIN
count := 0;
FOR i := 1 TO 10 DO
READLN (A[i]); {Заполняем массив}
FOR i := 1 TO 9 DO
IF (A[i] MOD 2 = 0) AND (A[i+1] MOD 2 = 0) THEN INC (count);
WRITELN ('Количество четных пар = ', count);
END.