1 var i,k:integer; a,b:array[1..10]of integer; begin writeln('Исходный массив:'); for i:=1 to 10 do begin a[i]:=random(-10,10); write(a[i]:3) end; for i:=1 to 10 do begin if a[i]<0 then begin k:=k+1; b[k]:=a[i] end end; for i:=1 to 10 do begin if a[i]>=0 then begin k:=k+1; b[k]:=a[i] end end; writeln; writeln('Преобразованный массив:'); for i:=1 to 10 do write(b[i]:3) end.
2. var i,j,k,n,x,p:integer; a,b:array of integer; f:boolean; begin write('Сколько будет чисел: '); readln(n); SetLength(a, n); for i:=1 to n do begin f:=false; write('Введите число: '); readln(x); for j:=0 to n-1 do if x=a[j] then f:=true; if f=false then begin a[k]:=x; k:=k+1; end end; SetLength(b, k); for i:=0 to k-1 do b[i]:=a[i]; for i:= 0 to k-1 do for j := 0 to k-1 do begin if b[i] < b[j] then begin p := b[i]; b[i] := b[j]; b[j] := p end end; writeln('Отсортированный массив:'); for i:=0 to k-1 do write(b[i]:3) end.
2.1 var i,j,k,n,x,p:integer; a:array[1..1000] of integer; f:boolean; begin write('Сколько будет чисел: '); readln(n); k:=1; for i:=1 to n do begin f:=false; write('Введите число: '); readln(x); for j:=1 to n do if x=a[j] then f:=true; if f=false then begin a[k]:=x; k:=k+1; end end; for i:=1 to k-1 do for j:=1 to k-1 do begin if a[i] < a[j] then begin p:= a[i]; a[i]:= a[j]; a[j]:= p end end; writeln('Отсортированный массив:'); for i:=1 to k-1 do write(a[i]:3) end.
2. 110110101 = 665 (8)
3. 110100110 = 646 (8)
4. 10100110 = 246 (8)
5. 1000011 = 103 (8)
6. 1101010,1100 = 152.6 (8)
7. 1010110,0101 = 126.24 (8)
8. 11010,01101 = 32.32 (8)
9. 1000,1101 = 10.64 (8)
10. 11101,001 (2) = 35.1 (8)