const n=40; var a:array [1..n] of integer; i,k:integer; begin Randomize; k:=0; Writeln('Исходный массив'); for i:=1 to n do begin a[i]:=random(63)+20; Write(a[i],' ') end; Writeln; Writeln('Четные элементы, кратные 3'); for i:=1 to n do if a[i] mod 6=0 then begin Inc(k); Write(a[i],' ') end; Writeln; Writeln('Отобрано элементов: ',k) end.
const n=20; var a:array [1..n] of integer; i,imin:integer; begin Randomize; Writeln('Исходный массив'); imin:=1; for i:=1 to n do begin a[i]:=random(351)+20; Write(a[i],' '); if a[i]<a[imin] then imin:=i end; Writeln; Writeln('Минимальный элемент a[',imin,']=',a[imin]) end.
Объяснение:
Если и считать всё в двоичной системе, то надо сначала все числа перевести в неё.
Перевод из шестнадцатеричной в двоичную- каждая шестнадцатеричная цифра заменяется на четыре двоичных, затем незначащие нули спереди- отбрасываются:
10₁₆ = 00010000₂ = 10000₂
Перевод из восьмеричной в двоичную- каждая восьмеричная цифра заменяется на три двоичных, затем незначащие нули спереди- отбрасываются:
10₈ = 001000₂ = 1000₂
Получаем в итоге пример:
10000₂ + 1000₂ + 10₂* 10000₂ = 10000₂ + 1000₂ + 100000₂ =
= 111000₂