profile
Опубликовано 6 лет назад по предмету Информатика от ulaula

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

  1. Ответ
    Ответ дан archery

    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.

Самые новые вопросы