Машина или тебе как нужно ну машина модель...
// PascalABC.NET 3.0, сборка 1150 от 22.01.2016
begin
var a,b:integer;
Read(a,b);
var k:=0;
for var i:=a to b do begin
var n:=i;
var s:=0;
while n<>0 do begin
s+=n mod 10;
n:=n div 10
end;
if i mod s = 0 then
begin Write(i,' '); Inc(k) end
end;
Writeln(#13#10,k)
end.
<u><em>Тестовое решение:</em></u>
10 20
10 12 18 20
4
<span>1.Директор - учителя, 2. учитель - ученики, 3. пилот - самолёт, 4. вожак - стая, 5. пастух - коровы.</span>
Что за язык?
ну создаешь переменную (допустим min), в неё заносишь значение первого элемента (элемента номер 0),
создаешь цикл и перебираешь со второго элемента (номер 1) до конца массива,
в ходе перебора сравниваешь значение каждого элемента массива с переменной (min), если значение элемента меньше, то присваиваешь переменной (min) значение текущего элемента в цикле...
+ Если нужно ещё найти порядковый номер наименьшего элемента в массиве, можно параллельно вести другую переменную (minnum) например, и каждый раз когда находится элемент меньший чем min присваивать minnum - номер текущего элемента в цикле