Нарисовать кота(как на картинке) в Pascal graphABC

ответ: 14

Каждой вершине, начиная с начальной (A), поставим в соответствие индекс, равный количеству путей, которыми можно попасть в эту вершину. Для вершины A (начало пути) индекс всегда равен 1 (в начало пути можно попасть единственным образом – никуда не двигаясь). Теперь сформулируем правило: индекс вершины равен сумме индексов его предков. Исходя из этого индекс Б равен 1 (предок у Б один – вершина A). У вершины Г предками являются А и В, значит индекс вершины Г равен 1+1=2. И т.д.

Объяснение:

ответ:После завершения цикла остается только вывести на экран значения переменных pos и neg, которые содержат количества положительных и отрицательных элементов массива.

Исходный код программы поиска количества положительных и отрицательных элементов массива на языке Pascal:

const N = 30;

var

   a: array[1..N] of integer;

   i, pos, neg: byte;

begin

   randomize;

   pos := 0;

   neg := 0;

   for i:=1 to N do begin

       a[i] := random(100) - 50;

       write(a[i]:4);

       if a[i] < 0 then

           neg := neg + 1

       else

           if a[i] > 0 then

               pos := pos + 1;

   end;

   writeln;

   writeln('Положительных: ', pos);

   writeln('Отрицательных: ', neg);

end.

Объяснение: