1) дан массив e размерностью 30. удалить следующий элемент стоящий после последнего положительного элемента массива. 2) отсортировать элементы по убыванию между первым отрицательным и последним кратным 3 элементами массива. ​

9 путей

Объяснение:

картинка

Вычеркнем пути не проходящие через город Д:

1) вычёркиваем АГ (если из города А поехать в город Г, то в город Д мы не попадём)

2) вычёркиваем ВГ и ВЕ (если из города В поехать в город Г или город Е, то в город Д мы не попадём)

3) вычёркиваем ГЕ и ГИ (если из города Г поехать в город Е или город И, то в город Д мы не попадём)

Начало пути (город А) всегда 1 путь.

А = 1

Дальше количество путей равно сумме от входящих путей (стрелочек).

Вычеркнутые пути НЕ учитываем!

Б = А = 1

В = А + Б = 1 + 1 = 2

Д = Б + В = 1 + 2 = 3

Е = Д = 3 (ВЕ и ГЕ вычеркнуты!)

и т.д.

9  различных путей из города А в город К, проходящих через город Д

Собственно, решение однострочное...

// PascalABC.NET 3.0, сборка 1150 от 22.01.2016
begin
  Writeln('Ср.арифм=',ArrRandom(30,0,1000).Println(', ').
      Where(x->Odd(x)).Average)
end.

Тестовое решение:
611, 443, 634, 637, 44, 297, 286, 431, 130, 767, 388, 513, 827, 681, 619, 810, 586, 697, 206, 823, 294, 238, 354, 138, 411, 141, 873, 864, 715, 564
Ср.арифм=592.875

И пояснение, как это работает, т.е. по сути алгоритм на русском языке.
ArrRandom(30,0,1000) создает массив из 30 элементов и заполняет его случайными значениями из диапазона [0,1000]. Далее этот массив обрабатывается методом Println, который направляет значения элементов на вывод, разделяя их запятой с последующим пробелом и в конце вывода добавляет смену строки. Затем элементы массива проходят фильтр Where(x->Odd(x)), который пропускает через себя только те значения, которые удовлетворяют условию Odd(значение элемента)=True, а мы знаем, что Odd() возвращает True для нечетного аргумента. Далее фильтр элементы обрабатываются методом Average, который умеет принимать набор значений и возвращать их среднее. И наконец, процедура Writeln выводит полученное значение, предваряя его текстовым пояснением.