uses crt;
const n=10;
var m : array[1..n] of integer;
i, max, max_i : integer;
begin
    for i:= 1 to n do
    begin
        m[i]:= random(-10) + 10;
        write(m[i],' ');
    end;
    max:= m[1];
    max_i:= 1;
    for i:= 1 to n do
    begin
        if (max > m[i]) then
        begin
            max:= m[i];
            max_i:= i;
        end;
    end;
    writeln();
    writeln('max = m[',max_i,']');
    writeln('max = ',max);
end.