Запиши ответ. число 410=1002 в восьмиразрядном представлении имеет вид:

hex(8): 4 = dec(10)

hex: 1,2,3,4,5,6,7,10,11,12…

dec: 1,2,3,4,5,6,7, 8, 9, 10…

varb: array [1..8] of integer; r,q: integer; begin  for r: =1 to 8 do  begin  q: =0;   read(b[r]);   end;   for r: =1 to 8 do  if b[r] mod 2=1 then q: =q+b[r];   writeln;   writeln('сумма нечетных чисел равна ',q); end.

program xxx;   var a, b, min : integer; begin  write('введите число а=');  

    readln(a);

  min: =10;   while a < > 0 do      begin            b: = a mod 10;             if b < min then min: =b;             a: = a div 10      end;     writeln('минимальная цифра = ', min);   readlnend.