Код PASCAL:
const Sz = 100; var a: array [1..Sz] of real; N: integer; min: real; i,minind: integer; begin N := 20; for i:=1 to N do a[i] := Random(100); writeln('Элементы массива: '); for i:=1 to N do write(a[i],' '); writeln; min := a[1]; minind := 1; for i:=2 to N do if a[i]<min then begin min := a[i]; minind := i; end; writeln('Минимальный элемент: ',min); writeln('Индекс минимального элемента: ',minind); end.