Дан массив 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.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.