Дан одномерный массив из 10 элементов

var a: array[1… 10] of integer; i,j,min: integer; beginfor i: =1 to 10 do readln (a[i]); min: =a[1]; for i: =2 to 10 do if min>a[i] then begin min: =a[i]; j: =i; end; writeln ('Nomer — ',j); end.