Короче, я с теорией не работаю, поэтому объясню алгоритм более практичней. Итак, нам нужно проверить каждый элемент массива и выяснить, является ли он трехзначным числом. Какой-то переменной мы присваем значение 1000. И как только мы находим трехзначное число, мы проверяем ниже ли это число той переменной(в первый раз, соответственно да). если ответ положительный, то присваем переменной значение числа, сс которым мы работали и которое, естественно меньше. Теперь проверяем дальше трехзначные числа. Если они ниже переменной, то присваевам их к этой же переменной. В конце цикла, переменная будет иметь значение минимального 3х знач элемента. Если переменная по прежнему равна 1000. Значит 3х знач числа не нашлось и мы выводим надпись "таких чисел нет".
Если я объяснил не слишком понятно, то покажу на примере:
var a:array [1..30] of real; i,min: real;
begin
{здесь ты сама как-нибудь вводишь элементы цикла. Или с файла, либо с вводом}
min:=1000;
for i:=1 to 30 do begin
If (a[i] div 100>0) and (a[i] div 100<10) then
if a[i]<min then min:=a[i];
end;
if min<>1000 then writeln(min) else writeln('таких чисел нет!')
end.
Ну наверно так...
Удачи!
1.2A2(16) =001010100010=1248(8)
2A2(16) = 2·16^0 + 10·16^1 + 2·16^2 = 674(10)
2. 186(16) =000110000110=606(8)
186(16) = 6·16^0 + 8·16^1 + 1·16^2 = 390(10)
3. BB(16) = 010111011=273(8)
BB(16) = 11·16^0 + 11·16^1 = 187(10)
1. 74(8) =00111100=3C(16)
74(8) = 4·8^0 + 7·8^1 = 60(10)
2. 165(8) = 001110101=75(16)
165(8) = 5·8^0 + 6·8^1 + 1·8^2 = 117(10)
3. 302(8) = 001100000010=1402(16)
302(8) = 2·8^0 + 0·8^1 + 3·8^2 = 194(10)
1.Делим число на 8 и выписываем остатки
98544 = 12318·8 + 0
12318 = 1539·8 + 6
1539 = 192·8 + 3
192 = 24·8 + 0
24 = 3·8 + 0
var a:array[1..10] of integer;
var i, t:integer;
begin
for i:=1 to 10 do
readln(a[i]);
for i:=3 to 8 do
if (a[i]=a[i-2]) and (a[i]>a[i+2]) and (a[i] mod 3=0) then
begin
a[i]:= a[i]*2;
end;
for i :=1 to 10 do
write(a[i],' ');
end.