Даны натуральные числа N

program nn; uses crt; var a: array [1… 20] of real; t: real; i,n,min: integer; BEGIN {ввод последовательности, это самостоятельно} min: =1; for i: =1 to 20 do begin if a[i] < a[min] then min: =i; end; t: =a[min]; a[min]: =a[20-n]; a[20-n]: =t; END.