Дано целое число n и массив случайных положительных и отрицательных чисел...

Question

Дано целое число n и массив случайных положительных и отрицательных чисел T[1..n](T[i]:=random(n)-n div 2)в массиве Т определить число соседств двух положительных чисел и двух чисел разного знака.

Comments

Опять конкурсы...

---

Точно, конкурсы. Правда не помню какой. Но пару лет назад решал такую задачу. Попробую вспомнить

---

Конкурсы не стоит решать, они - нарушение Правил и подлежат удалению.

---

Не стоит поощрять "хитро...умных", которые Вашим умом получать награды хотят

Answer 1

Const n = 100;
var
  a: array[1..n] of real;
  i,j,k: integer;
begin
  writeln('Число элементов в массиве (k<=100)');<br>  readln(k);
  j := 0;
  for i := 1 to k do
    a[i] := random(101) - 50;
  for i := 2 to k do
  begin
  if (a[i-1]>0) and (a[i]>0) or (a[i-1]*a[i]<0) then j:=j+1;<br>  end;
  writeln(j);
end.