Дан одномерный массив из 10 элементов. Найти его минимальный элемент и напечатать его порядковый номер.
var a:array[1..10] of integer;
i,j,min:integer;
begin
for 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.