Помогите пожалуйста! Опции

[goosberry]

Задача: в массиве из 10 элементов найти min элемент и все элементы массива уменьшить на половину значения этого элемента.

Задача 2: Даны массивы x и y из 10 элементов. Заменить элементы массива x, превышающие значение среднего арифметического элементов массива y этим значением (средним арифм.).

Заранее спасибо!

[samec]

используйте массив вещественных чисел.
Просто при минимальном элементе, равном 1, если используется массив целых чисел, следующий код

K:=min div 2;

даёт значение K равное нулю. Поэтому исходный и конечный массив - совпадают.

При использовании же массива вещественных чисел, меняем

K:=min div 2;

на

K:=min / 2;

и получаем K=0.5. (min, K :real)