var a:array[1..10] of integer; i,min,mini:integer;
begin
for i:=1 to 10 do begin a[i]:=random(65)+32; write(a[i]:4); end;
min:=100;
for i:=1 to 10 do
if a[i]<min then begin min:=a[i]; mini:=i; end;
writeln;
writeln('min=',min);
writeln('θνδεκρ=',mini);
end.