Дан массив U1, ..., U15. В массиве есть два одинаковых Umin. Определить их номера.

Var U: array [1 ... 15] of integer;

i, min : integer;

begin

for i : = 1 to 15 do

read (U[i]) ;

min : = U[1];

for i : = 1 to 15 do

if (U[i] < min) then begin

min : = U[i];

end;

for i : = 1 to 15 do

if (U[i] = min) then write (i,' ') ;

end.