Составить блок-схему и программу: программы циклической структуры для заданного значения x, вычислить сумму s.

Var  d, n: longint;       h: string;   begin      write('n? ');       readln(n);       repeat          d : = n mod 16;           if d < 10 then              h : = chr(ord('0') + d) + h          else              h : = chr(ord('a') - 10 + d) + h;           n : = n div 16;       until n = 0;       writeln(h, 'h');         end

Как это "всех минимальных"? если минимального, то вот: int a[100], tmp=0, ans;   //объявление массива и данной для индекса эл-та for (int i=0; i< 100; i++) cin > > a[i];                     //заполнение массива tmp = a[0];                   //берем значение для сравнения for (int i=0; i< 100; i++) if(a[i] < tmp)             //сравниваем текущий эл-т с последующим ans = i;