Написать программы в Pascal ABC
1)найдите количество элементов в массиве w(18), больших среднего арифметического всех его элементов.
2)найдите, сколько раз встречается в одномерном массиве т(20) максимальное по величине число. 3)найти сумму нечетных отрицательных элементов массива d(10).

Дискретность - это свойство алгоритма, когда алгоритм разбивается на конечное число элементарных действий (шагов) .
Понятность - свойство алгоритма, при котором каждое из этих элементарных действий (шагов) являются законченными и понятными.
Детерминированность - свойство, когда каждое действие (операция. указание. шаг. требование) должно пониматься в строго определённом смысле, чтобы не оставалась места произвольному толкованию. чтобы каждый, прочитавший указание, понимал его однозначно.
Массовость - свойство, когда по данному алгоритму должна решаться не одна, а целый класс подобных задач.
Результативность – свойство, при котором любой алгоритм в процессе выполнения должен приводить к определённому результату. Отрицательный результат также является результатом.

N - количество чисел в последовательности, i - для организации цикла for, x - очередное число из последовательности
В начале задаем значение max = 0, потому что рассматриваем последовательность натуральных чисел ( 1 и больше), то есть первое же натуральное четное будет записано в max
В конце выводим ьфч только если он не равен нулю, тоесть в последовательности было натуральное четное число!
program z1;var n, i, x, max: integer;beginmax := 0;readln(n);for i := 1 to n dobegin   read(x);   if (x mod 2 = 0) and (x > max) then max := x;end;if max > 0 then writeln(max) else writeln ('Не таких чисел');end.