Представить положительное и отрицательное числа 381 и -381 в форматах в формате слово (2 байта) со знаком и фиксированной запятой. в формате двойное слово (4 байта) с плавающей запятой. в упакованном формате. в распакованном формате.
var a:array [1..9] of real; i,k:integer; j:real; begin randomize; writeln('Массив:'); for i:=1 to 9 do begin a[i]:=(random(410)+100)/10; write(a[i],' '); end; writeln; writeln('Массив после увелечения минимального элемента на 100:'); k:=1; for i:=2 to 9 do if a[i]<a[k] then k:=i; a[k]:=a[k]+100; for i:=1 to 9 do write(a[i],' '); writeln; writeln('Массив после престановки максиального элемента с первым:'); j:=a[1]; a[1]:=a[k]; a[k]:=j; for i:=1 to 9 do write(a[i],' '); writeln; end.
3 задание var a:array [1..10] of integer; i,mn,mx:integer; begin writeln('Введите массив:'); for i:=1 to 10 do readln(a[i]); mn:=1; mx:=1; writeln('Массив'); for i:=1 to 10 do begin if a[i]<a[mn] then mn:=i; if a[i]>a[mx] then mx:=i; write(a[i],' '); end; i:=a[mx]; a[mx]:=a[mn]; a[mn]:=i; writeln; writeln('Массив после престановки:'); for i:=1 to 10 do write(a[i],' '); writeln; end.
I,k:integer; begin randomize; writeln('Массив:'); for i:=1 to 13 do begin a[i]:=random(41)+10; write(a[i],' '); end; writeln; writeln('Массив после удаления 10-го элемента:'); for i:=10 to 12 do a[i]:=a[i+1]; for i:=1 to 12 do write(a[i],' '); writeln; writeln('Массив после удаления минимального элемента: '); k:=1; for i:=1 to 12 do if a[i]<a[k] then k:=i; for i:=k to 11 do a[i]:=a[i+1]; for i:=1 to 11 do write(a[i],' '); writeln; end.
var a:array [1..7] of char; i,k:integer; begin writeln('Введите массив:'); for i:=1 to 7 do readln(a[i]); writeln('Массив'); for i:=1 to 7 do write(a[i],' '); writeln; writeln('Массив после удаления максимального элемента: '); k:=1; for i:=1 to 7 do if a[i]>a[k] then k:=i; for i:=k to 6 do a[i]:=a[i+1]; for i:=1 to 11 do write(a[i],' '); writeln; end.
-381 = 11111110 10000011 (2 байта, недробное)
381 = 01000011 10111110 10000000 00000000 (4 байта, дробное float)
-381 = 11000011 10111110 10000000 00000000 (4 байта, дробное float)
381 = 0011 1000 0001 1100 упакованный формат
-381 = 0011 1000 0001 1101 упакованный формат
381 = 1111 0011 1111 1000 1101 0001 распакованный формат
-381 = 1111 0011 1111 1000 1101 0001 распакованный формат (зонный)