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

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.

Требуемая процедура sub ex1(byref a() as integer, byref nn as integer, byref nz as integer)       dim i as integer       nn = 0: nz = 0       for i = 1 to 45               if a(i) = 0 then                       nz = nz + 1               else                       if a(i) < 0 and i < = 35 then                               nn = nn + 1                       end if               end if       next i end sub процедура для тестирования с выводом на лист excel sub test()       dim p(1 to 45) as integer       dim n1 as integer, n2 as integer, i as integer       randomize timer       for i = 1 to 45               p(i) = int(25 * rnd - 12)               cells(i, 1) = p(i)       next i       ex1 p, n1, n2       cells(1, 2) = n1       cells(1, 3) = n2 end sub

Пример компьютера (не быстрого по сегодняшним меркам): имя: аркадий (да, я могу назвать компьютер так, как мне хочется) функция: выполнение вычислений, не требующих большой производительности элементный состав: корпус, материнская плата, процессор, жесткий диск, оперативная память,  монитор, клавиатура, мышь. свойства: корпус: размеры  368 x 367 x 393 мм, встроенный блок питания 450 вт, черныйматеринская плата: совместимость с процессорами intel, оперативная память ddr4, интегрированная графика, 4 выхода usb 2.0, 2 выхода usb 3.0процессор: 2 ядра, 3.30 ггц, техпроцесс 14 нмжесткий диск: 1 тб, 7200 об/мин, скорость чтения/записи 200/150 мб/с, среднее время поиска 14 мсоперативная память: dimm ddr4, 4 гб, частота 2133 мгцмонитор: жк 21,5'', контрастность  1000: 1, время отклика 5 мс,  черный клавиатура: проводная, черная, usb мышь: проводная, черная, usb