Найти число пар соседних элементов массива ...

[maksim97maksim]

Найти число пар соседних элементов массива, являющихся чётными числами.

uses crt;
var
a,b,i,S:integer;
x: array[1..100] of integer;
begin
writeln('Введите массив: ');
writeln(
for i:=1 to 31 do
begin
x[i]:=random(1001);
write(x[i]:4);
end;
writeln;
readln(S);
writeln;
for i:=1 to 31 do
begin
if x[i]>S then
write(i:4);
end;
end.

Далал делал, и что то не то получилось. Да есчё и без рандома нуно было (

[Vanta11a]

Ну сознавайтесь, чей код скопировали?

[maksim97maksim]

Сообщение от Vanta11a

Ну сознавайтесь, чей код скопировали?

Перешаманил.

[Serge_Bliznykov]

Найти число пар соседних элементов массива, являющихся чётными числами.

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

например, допустим, даны следующие 6 чисел:
1 2 4 6 8 14
Чему равно число пар соседних элементов массива, являющихся чётными числами?!

(и обязательно мотивируйте - т.е. объясните, какие пары вы посчитали!)

Драуг дал, а я его чуть чуть подшаманил.) Перешаманил.

драугу привет. А следов вашего перешаманства вообще не видно!
Где Вы, например, проверяете чётное число или нет? Или проверяете, что числа находятся по соседству?...

[Vanta11a]

Я больше скажу, это "перешаманство" даже не скомпилируется, потому что есть незакрытый writeln.