INPUT "n="; n
DIM a(n) AS INTEGER
RESTORE
FOR i = 1 TO n
READ a(i)
NEXT i
FOR i = 1 TO n - 1
mi = a(i): u = i
FOR j = i TO n
IF a(j) < mi THEN
mi = a(j): u = j
END IF
NEXT j
r = a(i): a(i) = mi: a(u) = r
<span>NEXT i
</span>FOR i = 1 TO n
PRINT a(i);
NEXT i
END
DATA 12,-3,34,2,76,0,-45,23,12,0,23,6
Использовать Водолей
алг переливайка
нач
наполни A
перелей из A в B
перелей из B в C
перелей из C в A
перелей из B в C
перелей из A в B
перелей из B в C
перелей из C в A
<span>
кон</span>
Var out, i:integer;beginfor i:=50 to 100 do if i mod 10 = 3 then inc(out);write(out);end.
1250/10=125 Кбайт в секунду
2^3= 8 подъездов (один вариант из 8)
64 символов в алфавите следовательно 1 символ весит 6 бит, 100*6=600 битов/8= 75 байт