2 задачи на массивы (Pascal)

[Айдар]

Добрый день прошу помочь до завтра сделать 2 задачи:

1. В одномерном массиве z длинной m, найти число чередующихся знаков, т.е число переходов с минуса на плюс или наоборот.

2. Целочисленный массив K (MxN) заполнить 0 (нулями) и единицами в шахматном порядке.

[ОДИНОЧЕСТВО В СЕТИ]

1

count:=0;
for i:=1 to m-1 do
if z[i]*z[i+1]<0 then inc(count);

2

for i:=1 to m do
for j:=1 to n do
if (i mod 2)=(j mod 2) then k[i,j]:=1
 else k[i,j]:=0;

[NSvirus]

1.

for i:=1 to m-1 do
 if ((z[i]>0)and(z[i+1]<0)) or ((z[i]<0)and(z[i]>0)) then inc(rezult)

ОДИНОЧЕСТВО В СЕТИ, вот ты быстрая))

[ОДИНОЧЕСТВО В СЕТИ]

ОДИНОЧЕСТВО В СЕТИ, вот ты быстрая))

стараюсь!!!!