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