Посчитайте количество соседств двух отрицательных знаков - Turbo Pascal

Формулировка задачи:

3. Сформируйте одномерный массив из n элементов. Посчитайте количество соседств двух отрицательных знаков.

Решение задачи: «Посчитайте количество соседств двух отрицательных знаков»

Листинг программы

program pr;
 
var
  i, n, cout: integer;
  a: array [1..100] of integer;
 
begin
  writeln('Введите размер массива');
  readln(n);
  for i := 1 to n do
  begin
    a[i] := -10 + random(21);
    write(a[i]:3);
  end;
  writeln;
  cout := 0;
  for i := 1 to n - 1 do
  begin
    if (a[i] < 0) and (a[i + 1] < 0) then
      cout := cout + 1;
  end;
  writeln('Количество соседств двух отрицательных знаковp: ', cout);
end.

Объяснение кода листинга программы

В программе объявлены переменные: i, n, cout - целочисленного типа, и переменная a - массив из 100 целых чисел.
Пользователю предлагается ввести размер массива.
В цикле for i от 1 до n (n - 1) происходит заполнение массива a случайными числами от -10 до 20.
После заполнения массива выводится его содержимое.
Затем происходит проверка условия (a[i] < 0) и (a[i + 1] < 0). Если оба условия выполняются, то переменная cout увеличивается на 1.
В конце программы выводится количество соседств двух отрицательных знаков.