Даны натуральные числа n< 20 попарно различные действительные числа . в последовательности поменять местами наименьший элемент и элемент с номером 20-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.

Const xn=-2; xk=2; h=0.2; var x,y: real; i,n,k: integer; begin x: =xn-h; n: =round((xk-xn)/h)+1; k: =0; writeln(' x     y'); for i: =1 to n do   begin   x: =x+h;   y: =x*cos(2*x);   if y> 0 then k: =k+1;   writeln(x: 4: 1,y: 7: 3);   end; writeln('k=',k); end. результат:   x     y -2.0   1.307 -1.8   1.614 -1.6   1.597 -1.4   1.319 -1.2   0.885 -1.0   0.416 -0.8   0.023 -0.6 -0.217 -0.4 -0.279 -0.2 -0.184   0.0   0.000   0.2   0.184   0.4   0.279   0.6   0.217   0.8 -0.023   1.0 -0.416   1.2 -0.885   1.4 -1.319   1.6 -1.597   1.8 -1.614   2.0 -1.307 k=10

Var s: string;       k, kol: integer; begin     kol : = 0;     readln(s);     while pos(' ',s) < > 0 do   begin       k : = pos(' ',s);       if k < > 0 then           if k = 4 then begin             kol : = kol + 1;             delete(s,1,4);           end else             delete(s,1,k);       end;     if length(s) = 3 then begin           kol : = kol + 1;           delete(s,1,3);       end;     writeln(kol); end.