Опубликовано 12.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

Скорее всего задание некорректное: так как не бываетотрицательных значение в диапазоне от 0(нуля) до 25. Предположим, чтоотрицательные значения элементов присутствуют, тогда как считать их вначалеминимальными или делать противоположными а потом сравнивать. Ведь -25 и 25разные значения по определению. Если в массиве не один минимальный элемент адва или более, какой индекс минимального элемента брать первый, последний или где-тов середине массива. На будущее пишите язык программирования, на которомнеобходимо реализовать программу.

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

//-------------------------------------------------------------------------------
// Написал GonanSoft
//-------------------------------------------------------------------------------
var 
  da : array[1..10] of Integer;  //  da - DimensionalArray (одномерный массив) 
  i : Integer;    // Рабочая переменная цикла 
  i_min : Integer;  // индекс минимального элемента массива

//Заполняем элементы массива da десятью произвольными числами из диапазона от 0 до 25
Randomize;
for i := 1 to 10 do 
begin
  da[i] := Random(26);
end;

i_min := 1;  // Изначально считаем значение первого элемента массива минимальным
for i := 1 to 10 do
begin
  // Выполняем поиск минимального элемента массива
  if (da[i]  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));
//---------------------------------------------------------------------------