duzer73 Uses Crt;
var
a:array[1..10] of integer;
i:integer;
min,pos:integer;
BeginClrScr; 
for i:=1 to 10 do begin 
write('Введите число массива: '); 
Readln(a[i]); 
end;
min:=a[i];
pos:=1;
for i:=2 to 10 do begin
if a[i]<min then begin
min:=a[i];
pos:=i;
end;
end;
writeln('наименьший элемент ',min);
writeln('позиция  ',pos);
End.