Program DomZadUr12; var M : Array [1 .. 10] of integer; J,I : Byte; MIN : integer; begin For I := 1 to 10 do begin Write('Введите число N',I,': '); Readln(M[I]); end; For J := 1 to 10 do begin MIN := M[1]; For I := 1 to 10 do begin If M[I] < MIN then MIN := M[I]; end; Write(MIN,' '); for i:=1 to 10 do if MIN=M[i] then m[i]:=maxint; end; Readln; end.