Question

Создать массив из 10 случайных чисел {-50;100}. Вывести. Найти в массиве минимальный элемент. Удалить его из массива. Вывести полученный массив. Предусмотреть вывод промежуточных данных. (pascal)

Answer 1

// PascalABC.NET 3.3, сборка 1579 от 18.11.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=ArrRandom(10,-50,100); a.Println;
  var im:=a.IndexMin;
  Writeln('Номер минимального элемента- ',im+1,', значение ',a[im]);
  a:=(a[:im]+a[im+1:]).ToArray; a.Println
end.

Пример
-14 -21 2 -29 45 -48 81 22 0 5
Номер минимального элемента- 6, значение -48
-14 -21 2 -29 45 81 22 0 5

Answer 2

Задача

Вы хотите создать массив из 10 случайных чисел в диапазоне от -50 до 100, вывести его, найти минимальный элемент в массиве, удалить его и вывести полученный массив. Также вы хотите видеть промежуточные данные.

Решение

Для решения этой задачи вам понадобится использовать язык программирования Pascal. Вот пример кода, который выполняет все требуемые действия:

program MinElementRemoval;

const
  ARRAY_SIZE = 10;
  MIN_VALUE = -50;
  MAX_VALUE = 100;

var
  arr: array[1..ARRAY_SIZE] of integer;
  i, minIndex: integer;

begin
  // Заполнение массива случайными числами
  Randomize;
  for i := 1 to ARRAY_SIZE do
    arr[i] := Random(MAX_VALUE - MIN_VALUE + 1) + MIN_VALUE;

// Вывод исходного массива
  writeln('Исходный массив:');
  for i := 1 to ARRAY_SIZE do
    writeln(arr[i]);

// Поиск минимального элемента
  minIndex := 1;
  for i := 2 to ARRAY_SIZE do
  begin
    if arr[i] < arr[minIndex] then
      minIndex := i;
  end;

// Вывод минимального элемента
  writeln('Минимальный элемент:', arr[minIndex]);

// Удаление минимального элемента из массива
  for i := minIndex to ARRAY_SIZE - 1 do
    arr[i] := arr[i + 1];
  ARRAY_SIZE := ARRAY_SIZE - 1;

// Вывод полученного массива
  writeln('Полученный массив:');
  for i := 1 to ARRAY_SIZE do
    writeln(arr[i]);
end.

В этом коде мы используем переменную `ARRAY_SIZE` для определения размера массива, `MIN_VALUE` и `MAX_VALUE` для определения диапазона случайных чисел. Затем мы заполняем массив случайными числами в указанном диапазоне с помощью функции `Random`. Затем мы выводим исходный массив, находим минимальный элемент, удаляем его из массива и выводим полученный массив.

Примечание: Пожалуйста, обратите внимание, что код Pascal чувствителен к регистру, поэтому убедитесь, что вы используете правильный регистр для ключевых слов и идентификаторов.