Question

Помогите составить программу в Паскале!!! Дан массив, состоящий из 10 чисел, вводимых с клавиатуры. Поменять минимальные и максимальные элементы местами.

Answer 1

Ответ:

int correct = 0;

for (int i = 0, i < #massiv; i++) {

correct++;

if (i > correct) {

continue;

}

else {

table.remove(i)

massiv[i] = i

}

}

вроде бы так

Answer 2

Конечно, вот пример программы на языке Паскаль, которая позволяет поменять местами минимальный и максимальный элементы массива:

pascalCopy code
program SwapMinMaxElements;
var
  arr: array[1..10] of integer;
  i, minIdx, maxIdx, minValue, maxValue, temp: integer;
begin
  writeln('Введите 10 чисел:');
  
  for i := 1 to 10 do
  begin
    write('Введите элемент ', i, ': ');
    readln(arr[i]);
  end;

  minIdx := 1;
  maxIdx := 1;
  minValue := arr[1];
  maxValue := arr[1];

  for i := 2 to 10 do
  begin
    if arr[i] < minValue then
    begin
      minValue := arr[i];
      minIdx := i;
    end
    else if arr[i] > maxValue then
    begin
      maxValue := arr[i];
      maxIdx := i;
    end;
  end;

  writeln('Минимальный элемент: ', minValue);
  writeln('Максимальный элемент: ', maxValue);

  // Меняем местами минимальный и максимальный элементы
  temp := arr[minIdx];
  arr[minIdx] := arr[maxIdx];
  arr[maxIdx] := temp;

  writeln('Массив после замены минимального и максимального элементов:');
  for i := 1 to 10 do
    write(arr[i], ' ');

  readln;
end.

Эта программа позволяет вам ввести 10 чисел с клавиатуры, затем находит минимальный и максимальный элементы в массиве и меняет их местами.