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

212

393

Посмотреть ответы 2

Ответы на вопрос:

евгения2066

Информатика

4,5(8 оценок)

Скорее всего некорректное: так как не бывает отрицательных значение в диапазоне от 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)); //