Дан массив из 20 целых чисел, заполненный случайными целыми числами из интервала от [-100...

Question

Дан массив из 20 целых чисел, заполненный случайными целыми числами из интервала от [-100 до 100]. Найти количество элементов массива, у которых сумма двух соседних элементов четная. Данный массив вывести в строчку. (Срочно!)

Answer 1

 Var A:array[1..20]of integer;
 i,K,Z:integer;
Begin
Randomize;
For i:= 1 to 20 do Begin
 A[i]:= random(200)-100; 
Write(A[i],' '); End; Writeln;
For i:= 2 to 20 do Begin 
k:= (A[i-1]+ A[i]);
 if k mod 2 = 0 then Begin z:= z +1;
Write(A[i-1]:6, A[i]:3);  End; End; 
Writeln; Write(z);End.