Question

В паскале! Задать массив состоящий из 20 целых чисел. Поменять местами 3-й и максимальный элементы массива. Пожалуйста, очень срочно нужно!!!

Answer 1

Задача состоит из двух частей: поиск максимального элемента (сохраняем индекс максимального элемента, изначально 1, и если следующий элемент больше текущего максимума, обновляем максимум) и обмен двух значений (тут это сделано через вспомогательную переменную)

Код (Pascal):

var

 a: array[1..20] of integer;

 imax, i, temp: integer;

begin

 for i := 1 to 20 do

   read(a[i]);

 imax := 1;

 for i := 2 to 20 do

   if a[i] > a[imax] then

       imax := i;

 temp := a[3];

 a[3] := a[imax];

 a[imax] := temp;

 for i := 1 to 20 do

   write(a[i], ' ')

end.    

Пример ввода:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

Пример вывода:

1 2 20 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 3

Answer 2

Конечно, вот пример кода на Pascal, который создает массив из 20 целых чисел, находит максимальный элемент и меняет его местами с элементом, находящимся на 3-ей позиции (учитывая, что индексы массивов в Pascal начинаются с 1):

pascalCopy code
program SwapMaxWithThird;

var
  arr: array[1..20] of integer;
  i, maxIndex, temp: integer;

begin
  { Заполняем массив случайными числами }
  randomize;
  for i := 1 to 20 do
    arr[i] := random(100); { Генерируем случайные числа от 0 до 99 }

  { Находим индекс максимального элемента }
  maxIndex := 1;
  for i := 2 to 20 do
  begin
    if arr[i] > arr[maxIndex] then
      maxIndex := i;
  end;

  { Меняем местами 3-й и максимальный элементы }
  temp := arr[3];
  arr[3] := arr[maxIndex];
  arr[maxIndex] := temp;

  { Выводим массив после замены }
  writeln('Массив после замены:');
  for i := 1 to 20 do
    write(arr[i], ' ');

  readln;
end.

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