Question

Паскаль входными данными являются число k, n и n целых чисел. в массиве определить индекс k-го наибольшего элемента массива. считать, что все элементы разные. ограничения: считать, что все элементы разные. n принимает значения от 1 до 20. k принимает значения от 1 до n. формат входных данных: k, n и n целых чисел формат выходных данных: индекс второго наибольшего элемента массива

Answer 1

Var
  i,j,n,k: integer;
  a,b:array[1..20]of integer;
begin
writeln('Введите N');
readln(n);
for i:=1 to n do
  begin
  readln(a[i]);
  b[i]:=a[i];
  end;
for i:=1 to n do
  for j:=1 to n do
    if b[i]>b[j] then
      begin
      k:=b[i];
      b[i]:=b[j];
      b[j]:=k
      end;
for i:=1 to n do
  if a[i]=b[2] then k:=i;
writeln('k=',k);
end.