Три ошибки, одна грубая.
Сравни своё решение и моё. (для Pascal ABC Net)
program prim; var a: array [1..10] of integer; i, z, max, min,nommax,nommin: integer; begin for i:=1 to 10 do a[i]:=Random(101); writeln (' исходный массив:'); for i:=1 to 10 do write (a[i], ' '); writeln; max:= a[1]; for i:=2 to 10 do if a[i]>max then begin max:= a[i];nommax:=i; end; writeln ('максимальный элемент=', max); min:= a[1]; for i:=2 to 10 do if a[i]<min then begin min:= a[i];nommin:=i; end; writeln ('минимальный элемент=', min); z:=a[nommin]; a[nommin]:=a[nommax]; a[nommax]:=z; writeln (' полученный массив'); for i:=1 to 10 do write (a[i], ' '); writeln; end.
101010102-2528+716=101008290
Var
a, b, c, max: longint;
begin
readln(a, b, c);
max := a;
if (b > max) then
max := b;
if (c > max) then
max := c;
writeln(max);
end.
1. Определим общее количество символов.
8×4=32
2. Определим количество бит, необходимых для кодирования символа
32=2⁵, поэтому понадобится 5 бит.
Ответ б)
84=1010100 двоичная
84=124 восмеричная
84=54 шеснадцатиричная