begin k := 1; //Получим 1-ый элемент массива a[1] := Random(41) - 20; min := a[1]; write(a[1]:4); //Получим оставшиеся элементы массива //найдем минимальный, запомним его номер //и выведем массив на экран for var i := 2 to N do begin a[i] := Random(41) - 20; if a[i] < min then begin min := a[i]; k := i; end; write(a[i]:4); end; if k <> 1 then swap(a[1], a[k]); writeln; //Вывод массива после замены for var i := 1 to n do write(a[i]:4); end.