Var i,j,p:integer; a:array[1..20]of integer; begin writeln('Исходный массив:'); for i:=1 to 20 do begin a[i]:=random(20); write(a[i],' '); end; writeln; i:=1; while i<21 do begin j:=i; while j<21 do begin if a[i]<a[j] then begin p:=a[i]; a[i]:=a[j]; a[j]:=p; end; j:=j+2; end; i:=i+2; end; i:=2; while i<21 do begin j:=i; while j<21 do begin if a[i]>a[j] then begin p:=a[i]; a[i]:=a[j]; a[j]:=p; end; j:=j+2; end; i:=i+2; end; writeln('Измененный массив:'); for i:=1 to 20 do write(a[i],' ') end.
Перевод числа Х из 10-тичной системы в n-ичную осуществляется путем деления с остатком числа Х на n, затем Х1 = Х/n на n и тд (до тех пор, пока Хi больше 0) и записыванием остатков деления в обратном порядке. В нашем случае: Х = 10, n = 2, % - операция получения остатка от деления, / - операция получения целой части от деления. 1) 10 % 2 = 0; 10 / 2 = 5 2) 5 % 2 = 1; 5 / 2 = 2 3) 2 % 2 = 0; 2 / 2 = 1 4) 1 % 2 = 1; 1 / 2 = 0 => конец. Выпишем остатки в обратном порядке (т.е. из шагов 4), 3), 2) и 1)): 10 (в 10-ной) = 1010 (в 2-ной) Проверка: 1010 (в 2-ной) = 1*2^3 + 0*2^2 + 1*2^2 + 0*2^0 = 8 + 0 + 2 + 0 = 10 (в 10-ной)
Хм, вроде оптоволокно, витая пара и коаксильный кабель.
2, 4, 5