Народ спасите!!!!! я не черта не знаю Паскаль, а мне дали задачи
1)Дан целочисленный массив размера N. Проверить, чередуются ли в нем четные и нечётные числа. Если чередуются, то вывести 0, если нет, то вывести порядковый номер первого элемента, нарушающего закономерности
2)Дан вектор B=(b1,b2,...,bn).Найти номер последнего отрицательного элемента.Найти сумму элементов кратных данному K.

М

Название должно быть информативным. Я исправил. Потом буду закрывать и удалять

По первой вот так можно:

i:=1;
while (i<=n) and (((x[i] xor i xor x[1]) and 1)=1) do inc(i);
if i>n then i:=0;
writeln (i);

2.

for i:=1 to n do
  begin
    if b[i]<0 then
      nomer:=i;
  end;

sum:=0;
for i:=1 to n do
  begin
    if b[i] mod k = 0 then
      sum:=sum+b[i];
  end;