Question

Помогите пожалуйста, не могу сообразить((
Дан массив целых чисел. Найти количество пар соседних элементов, в которых одно число положительное, а другое отрицательное. Выведите также сформированный массив и все искомые пары соседних элементов.
PascalABC.

Answer 1

Const
 n=10;

Var
 ar:array[1..n] of integer;
 k,i:integer;
begin
 randomize;
 writeln('Array:');
  for i:=1 to n do
   begin
    ar[i]:=random(-1,1);
    write(ar[i]:4);
   end;
  writeln;
  for i:=1 to n-1 do
   if ((ar[i]>0) and (ar[i+1]<0)) or ((ar[i]<0) and (ar[i+1]>0)) then
    begin
     writeln(ar[i],' ',ar[i+1]);
     k:=k+1;
    end;
  writeln('Всего:',k);
end.

Answer 2

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