Заполнить одномерный целочисленный массив, десятью произвольными числами из диапазона от...

0 голосов
89 просмотров

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


Информатика (21 баллов) | 89 просмотров
Дан 1 ответ
0 голосов

Скорее всего задание некорректное: так как не бывает отрицательных значение в диапазоне от 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<br>  begin
    da[i] := Abs(da[i]);
  end;
end;

// Вывод результата
Writeln('Минимальный элемент массива ' + inttostr(da[i_min]));
Writeln('Индекс минимального элемента массива ' + inttostr(i_min));
//---------------------------------------------------------------------------

(424 баллов)