Заполнить одномерный целочисленный массив, десятью произвольными числами из диапазона от 0 до 25 ,найти минимальный элемент массива и его номер, заменить все отрицательные элементы массива на противоположные

Скорее всего некорректное: так как не бывает отрицательных значение в диапазоне от 0(нуля) до 25. предположим, что отрицательные значения элементов присутствуют, тогда как считать их вначале минимальными или делать противоположными а потом сравнивать. ведь -25 и 25 разные значения по определению. если в массиве не один минимальный элемент а два или более, какой индекс минимального элемента брать первый, последний или где-то в середине массива. на будущее пишите язык программирования, на котором необходимо реализовать программу. программа написана на паскале. ищется индекс первого минимального значения массива. код замены отрицательных элементов массива и замены их на противоположные тоже включил. но вначале считает значение элемента на минимум затем заменяет его на противоположный.//// написал gonansoft//var      da : array[1..10] of integer;   //   da - dimensionalarray (одномерный массив)      i : integer;     // рабочая переменная цикла      i_min : integer;   // индекс минимального элемента массива//заполняем элементы массива da десятью произвольными числами из диапазона от 0 до 25randomize; for i : = 1 to 10 do  begin    da[i] : = random(26); end; i_min : = 1;   // изначально считаем значение первого элемента массива минимальнымfor i : = 1 to 10 dobegin    // выполняем поиск минимального элемента массива    if (da[i]< da[i_min]) then    begin      i_min : = i;     end;     //заменяем все отрицательные элементы массива на противоположные    if (da[i]< 0) then    begin      da[i] : = abs(da[i]);     end; end; // вывод результатаwriteln('минимальный элемент массива ' + inttostr(da[i_min])); writeln('индекс минимального элемента массива ' + inttostr(i_min)); //

Коала, лев, зебра, горила