Question

В одномерном массиве x (10) из положительных и отрицательных чисел найти максимальный и минимальный элементы и поменять их местами. В виде кода Паскаль.

Answer 1

var

x: array [1..10] of real;

zmax, zmin: real;

k, kmin, kmax: integer;

begin

zmax:=-999;

zmin:=999;

for k:= 1 to 10 do

begin

readln (x[k]);

if x[k] > zmax then begin

zmax:=x[k];

kmax:=k;

end;

if x[k] <zmin then begin

zmin:=x[k];

kmin:=k;

end;

end;

x[kmin]:=zmax;

x[kmax]:=zmin;

end.

Answer 2

Для решения этой задачи в Паскале, мы можем использовать следующий код:

pascalCopy code
program SwapMinMax;

const
  N = 10; // Размер массива

type
  TArr = array[1..N] of Integer;

var
  x: TArr;
  i, maxIdx, minIdx, temp: Integer;

// Процедура для нахождения индексов максимального и минимального элементов
procedure FindMaxMinIndexes(const arr: TArr; var maxIdx, minIdx: Integer);
var
  i: Integer;
begin
  maxIdx := 1;
  minIdx := 1;

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

// Процедура для обмена местами двух элементов массива по их индексам
procedure SwapElements(var arr: TArr; idx1, idx2: Integer);
var
  temp: Integer;
begin
  temp := arr[idx1];
  arr[idx1] := arr[idx2];
  arr[idx2] := temp;
end;

begin
  // Заполнение массива x
  writeln('Введите ', N, ' целых чисел:');
  for i := 1 to N do
    readln(x[i]);

  // Находим индексы максимального и минимального элементов
  FindMaxMinIndexes(x, maxIdx, minIdx);

  // Меняем местами максимальный и минимальный элементы
  SwapElements(x, maxIdx, minIdx);

  // Выводим результат
  writeln('Массив после замены:');
  for i := 1 to N do
    write(x[i], ' ');

  readln;
end.

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