М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
elmirayanbukov
elmirayanbukov
03.02.2021 00:45 •  Информатика

Поменять местами минимальный и максимальный элементы массива.pascal abc.

👇
Ответ:
timurSeytzhan
timurSeytzhan
03.02.2021
Var c,k1,k2,i,min,max: integer; begin min:=m[0]; max:=m[0]; for i:=0 to N do begin // тут вот N - размер массива, m - массив if (m[i]>max) then begin max:=m[i]; k1:=i end; if (m[i]
4,5(83 оценок)
Открыть все ответы
Ответ:
ForeverDiman
ForeverDiman
03.02.2021

Код в текстовом файле скрин кода и скрин работы в картинках.

Замечание:

Если не принципиально как сортировать то можно полностью убрать часть кода

        // сортировка через циклы

           int temp;

           for (int i = 0; i < nums.Length - 1; i++)

           {

               for (int j = i + 1; j < nums.Length; j++)

               {

                   if (nums[i] > nums[j])

                   {

                       temp = nums[i];

                       nums[i] = nums[j];

                       nums[j] = temp;

                   }

               }

           }

           // конец сортировки

и раскомментировать строку

Array.Sort(nums);

результат работы будет тот же, но кода меньше


С# всі вхідні масиви заповнюються випадковими цілими числами з діапазону [- 50; 50]. масив цілих чис
С# всі вхідні масиви заповнюються випадковими цілими числами з діапазону [- 50; 50]. масив цілих чис
4,4(55 оценок)
Ответ:
rrr46
rrr46
03.02.2021

var n, i, x, min: integer;

begin

 n:=12; //задаем количество чисел.

 min:=16;//присваиваем минимум по правилу:"Минимуму присваиваем самое большое число".

 Randomize;

for i:=0 to n-1 do //цикл для рандома 12 чисел. Можно написать " for i:=1 to n do"

    begin

     x:=Random(31)-15;  //присваиваем перемененной "x" рандомное значение из диапазона [-15;15].

     Writeln(x); //выводим значение "x".

      if (min > x) and (x mod 2 <> 0) then  //если минимум больше полученного "x" и "x" - нечетный, то

        min:=x;  //минимуму присваиваем значение "x".

   end;

Writeln('Наименьшее нечетное число последовательности: ',min); //выводим ответ.

end.

4,6(72 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ