^ - степень. Не забываем, что любое число в нулевой степени равно 1. 1) 1*2^2+0*2^1+1*2^0=4+0+1=5; 2)1*2^2+1*2^1+1*2^0=4+2+1=7; 3)7*8^0=7*1=7; 4)1*8^1+1*8^0=8+1=9; 5)2*8^1+2*8^0=16+2*1=16+2=18; Вспомним как кодируются буквы в шестнадцатеричной системе счисления. A=10. B=11. C=12. D=13. E=14. F=15; 6)1*16^1+10*8^0=16+10=26; 7)11*16^1+15*8^0=176+15=191; 8)9*16^1+12*16^0=144+12=156. Рад был помочь!
Program qq; uses crt; var A:array [1..20] of integer; i: integer; begin for i:=1 to 20 do readln (a[i]); //ввод массива. Не указали откуда дан массив, так что введем его через enter for i:=1 to 20 do if a[i]<10 then a[i]:=0; //сравним каждый элемент массива с 10. если меньше 10, то заменим на ноль for i:=1 to 20 do write (a[i], ' '); //Вывод массива на экран <span>end.</span>