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

Question

Информатика

Виня

5 октября, 11:53

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

+4

Ответы (1)

Знаете ответ?

Катерина · 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.