abc program

Ответ от Krab Bark[гуру]
program ar6;
var i,k,n:integer; a:array[1..100]of integer;
begin
write('Введите размер массива: '); readln(n); k:=0;
writeln('Введите значения элементов массива, разделяя их пробелами');
for i:=1 to n do read(a[i]); readln;
for i:=2 to n do k:=k+ord(odd(a[i-1]+a[i])and(a[i-1]+a[i]>0));
write(k); writeln;
writeln('Для выхода нажмите Enter'); readln
end.
Krab Bark
(112429)
За изменение типа данных. Вместо объяснений мне проще написать это иначе:
for i:=2 to n do if odd(a[i-1]+a[i])and(a[i-1]+a[i]>0) then k:=k+1;