Question

В одномерном массиве A(N) найти min элемент и удалить его. Язык паскаль.

Answer 1

Program z1;
var a:array[1..100] of integer;
        i,n,k,mi,miu:integer;
begin
        assign(input,'in.txt');
        reset(input);
        readln(n);
        for i:=1 to n do begin
                read(a[i]);
        end;
        close(input);
        mi:=a[1];miu:=1;
        for i:=1 to n do begin
                if a[i]<mi then begin
                        mi:=a[i];miu:=i
                end;
        end;
        i:=miu;
        while i<n do begin
                a[i]:=a[i+1];
                i:=i+1
        end;
        assign(output,'out.txt');
        rewrite(output);
        for i:=1 to n-1 do begin
                write(a[i],' ')
        end;
        close(output)
end.

Answer 2

Для того чтобы найти минимальный элемент в одномерном массиве A(N) на языке Pascal и удалить его, вам потребуется выполнить следующие шаги:

1. Инициализировать массив A(N) и определить его размерность N. 2. Найти минимальный элемент в массиве A(N). 3. Удалить минимальный элемент из массива.

Вот пример кода на языке Pascal, который выполняет эти шаги:

program FindAndRemoveMinElement;
var
  A: array of Integer; // Объявляем динамический массив
  N, i, minElementIndex: Integer;
begin
  Write('Введите размер массива N: ');
  Readln(N);

// Выделяем память под массив A(N)
  SetLength(A, N);

// Заполняем массив элементами
  for i := 0 to N - 1 do
  begin
    Write('Введите элемент A[', i, ']: ');
    Readln(A[i]);
  end;

// Ищем минимальный элемент и его индекс
  minElementIndex := 0; // Пусть первый элемент будет минимальным
  for i := 1 to N - 1 do
  begin
    if A[i] < A[minElementIndex] then
      minElementIndex := i;
  end;

// Выводим минимальный элемент
  Writeln('Минимальный элемент в массиве: ', A[minElementIndex]);

// Удаляем минимальный элемент из массива
  for i := minElementIndex to N - 2 do
  begin
    A[i] := A[i + 1];
  end;

// Уменьшаем размер массива на 1
  SetLength(A, N - 1);

// Выводим обновленный массив
  Writeln('Обновленный массив:');
  for i := 0 to N - 2 do
  begin
    Write(A[i], ' ');
  end;
  Writeln;
end.

Этот код сначала создает динамический массив A(N), заполняет его элементами, затем находит минимальный элемент и его индекс, удаляет минимальный элемент из массива и выводит обновленный массив без этого элемента.