Задача.Турбо Паскаль

[towellie]

Даны массивы A(m) и В(m) где m<10. Сформировать массив К по правилу: К(i)=-1, если A(i)B(i)<0, и к(i)=1, если A(i)B(i)>0. вывести на экран массивы А,В и К.

заранее спасибо всем

[Stilet]

for i:=1 to m do
 if (a[i]*b[i])<=0 then k[i]=-1 else k[i]:=1;

вводи и вывод сам прикрути, i - integer;

[towellie]

ооо,спасибо большое