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.<span> </span>