Даны натуральные числа N<20 попарно различные действительные числа а1...а20. В последовательности а1....а20 поменять местами наименьший элемент и элемент с номером 20-N

Вопрос пользователя:

Даны натуральные числа N<20 попарно различные действительные числа а1…а20. В последовательности а1….а20 поменять местами наименьший элемент и элемент с номером 20-N

Илюха отвечает:

program nn;

uses crt;

var a:array [1..20] of real;

t:real;

i,n,min:integer;

BEGIN

&nbsp;&nbsp; {ввод последовательности, это самостоятельно}

&nbsp;&nbsp; min := 1;

&nbsp;&nbsp; for i := 1 to 20 do

&nbsp;&nbsp; begin

&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; if&nbsp; a[i] &lt; a[min] then

&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; min := i;

&nbsp;&nbsp; end;

&nbsp;

&nbsp;&nbsp; t := a[min];

&nbsp;&nbsp; a[min] := a[20-n];

&nbsp;&nbsp; a[20-n] := t;

END.