Дан целочисленный одномерный массив, состоящий из n элементов. Найти произведение элементов в промежутке от -3 до 15. (Паскаль)

program z7;

var X: integer;

begin

writeln('введите Х');

if X >100 then X:=X-20;

writeln('X=', X);

end.

2.

1) Вычисляются два числа - сумма первой, третьей и пятой цифр и сумма второй и четвертой цифр заданного числа
2) Полученные два числа записываются друг за другом в порядке неубывания( без разделителей)

Определите сколько из приведенных ниже чисел могут получиться в результате работы автомата:
40 1030 130 2019 1920 2013 213 3010

отсортировать в порядке возрастания элементов. Вывести:

- матрицу
- одномерный массив до сортировки
- одномерный массив после сортировки прошу. срочно!

от -100 до 100. Определить минимальное положительное число.

2) Дан массив, состоящий из 10 чисел. Найдите номера тех элементовв масива, которые наименее различаются.

2. Создать массив A из 10 элементов, заполненный случайным образом числами принадлежащих промежутку (0;20). Вывести полученный массив на экран. Вычислить количество элементов массива, значения которых не превышают среднее арифметическое значений его элементов.