Question

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

Answer 1

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.