ПАСКАЛЬ !Написать полную программу!
Нужно найти количество элементов больше второго элемента

// PascalABC.NET 3.3, сборка 1611 от 06.01.2018
// Внимание! Если программа не работает, обновите версию!

function DecTo13(n:integer):string;
begin
  var S:='0123456789ABC';
  Result:='';
  if n=0 then Result:='0'
  else
    while n>0 do begin
      Result:=S[n mod 13+1]+Result;
      n:=n div 13
      end
end;

begin
  Write('    '); for var i:=1 to 13 do Write(DecTo13(i):4); Writeln;
  Writeln(14*4*'-');
  for var i:=1 to 13 do begin
    Write(DecTo13(i)+':':4);
    for var j:=1 to 13 do Write(DecTo13(i*j):4);
    Writeln
    end
end.

Результаты - во вложениях.

Есть 2 варианта как ето делается изложить.
1. На самом языке java.
2. На русском языке.

 т.к. java незнаю, попробую сделать удобно

мы перебираем массив по одному на сравнение с самым маленьким числом. А число возьмём из массива, с самого начала с первого элемента. То есть
min = первый элемент массива
если min не меньше чем массив [счётчик цикла], тоист первый, второй и такдалий тогда оно пусть является этим элементом. Если в дальнейшем найдется ещё меньше то min станет на каком шяс значений счетчик. Пробирая так весь массив через цикл в неём окажется самое по счёту где находится в массиве самое маленькое число.
код примерно такой

for i = 1 до конца массива с шагом i=i+1
if min > массив[i] тогда
 min=i;
иначе
 ничего не делаем

вывести ("массив",min,"]=",массив[min]);