В числовой последовательности из N произвольных целых чисел определить…

Uses crt; const n=10; var a: array [1… n] of integer; i,k: integer; beginrandomize; for i: =1 to n dobegina[i]: =random (100); writeln (a[i]); end; writeln; for i: =1 to n-1 dobeginif abs (a[i])=abs (a[i+1]) thenbeginif (a[i]>0) and (a[i+1]<0) or (a[i]<0) and (a[i+1]>0) theninc (k); end; end; writeln (k); end.