Найти K-й максимум в одномерном массиве

[lect111]

Нужно найти катый максимум. Запрещено портить и создавать рабочие масивы.

Program 1;
Uses CRT;
Const n=10;
Var a_max, a_min, i, j, k, b, max, c, temp,i_temp: Integer;
a: Array [1..n] of Integer;
Begin
Randomize;
WriteLn ('Zachita');
Write ('Vvedite k=');
ReadLn (k);
WriteLn ('Vvedite diapazon:');
Write ('a_min=');
ReadLn (a_min);
Write ('a_max=');
ReadLn (a_max);
For i:= 1 To n Do
Begin
a[i]:= Random (a_max - a_min + 1) + a_min;
Write (a[i]:5);
End;

WriteLn;
max:=a[n-k+1];
WriteLn;
Write ('max k-tii=', max);
ReadLn;
End.

___________
1) Название темы должно адекватно отражать суть решаемой задачи/проблемы.
я исправил. но в дальнейшем темы с подобным названием будут закрываться/удаляться,
а автор такой темы получать штрафы.

2) Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)

Не забывайте об этом!

Модератор.

[Mad_Cat]

в том что вы выдаете
не

катый максимум

а

n-k+1

элемент

[lect111]

Не могли бы вы подсказать что сделать нужно? а то уже запарился(

[lect111]

Всё дошло)