помогите пожалуйста!! паскальВходными данными являются число k, N и N целых

Question

помогите пожалуйста!! паскальВходными данными являются число k, N и N целых

Помогите пожалуйста!! паскаль
Входными данными являются число k, N и N целых чисел.
В массиве найти индекс k-го наибольшего элемента массива.
Считать, что все элементы различные.
Ограничения:
Считать, что все элементы различные.
N воспринимает значения от 1 до 20.
k воспринимает значения от 1 до N.
Формат входных данных:
k, N и N целых чисел
Формат выходных данных:
индекс второго наивеличайшего элемента массива

Задать свой вопрос

Semjon Katunskij
Информатика
2019-09-09 00:28:40
0
1

1 ответ

, оставишь ответ?

Имя:*

E-Mail:

Похожие вопросы

при переработке нефти 30%составляет бензин,53%мазут.оставшаяся часть нефти пропадает при

Григорий ОСТЕР ВРЕДНЫЕ СОВЕТЫКогда состаришься, ходиПо улице пешком.Не лезь в трамваи

назовите самое главное , событие правления Петра 3

В словах сколько слогов, букв, звуков . Возлюбленная , прыжки, игровая

Який корнь в словах : ВЕЧР, ВЕЧЕРЯ

Раствор содержит 14 процентов соли . Сколько кг раствора надобно брать,

20 первый век наступил. Быстро появятся новые машины, новые материалы, новые

На лугу летало 10 бабочек: белоснежных бабочек на 2 меньше, чем

грузовая машина прошла 240 км, двигаясь со скоростью 40 км в

Решите пожалуйста 3 задания1 задание:Деревянный куб с ребром 16 см распилили

Влад · Answer 1 · 2019-09-09 00:32:19+3:00

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]gt;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.

О проекте

помогите пожалуйста!! паскальВходными данными являются число k, N и N целых

Добро пожаловать!