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

Question

Информатика

Лила

13 ноября, 14:43

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

+1

Ответы (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.