Поиск пятого максимального элемента массива

@mre4 · Регистрация: 15.03.2011

Author24 — интернет-сервис помощи студентам

Здравствуйте. Прошу помочь с заданием: найти пятый максимальный элемент одномерного массива.
Использование множества циклов для перебора работает, однако получается очень громоздкая программа. Сортировка тоже неактуальна. Прошу привести пример с решением в один проход цикла.
Заранее спасибо.

@Dekio · 15.03.2011, 21:04

Pascal

max:=1; cnt:=0;
for i:=1 to n do
if arr[i]>arr[max] then
max:=i;
for i:=1 to n do
begin
if arr[i]=arr[max] then
inc(cnt);
if cnt=5 then
begin
write(arr[i]:4,i:3);
break;
end;
end;

@Puporev · 15.03.2011, 21:16

Сообщение от Dekio

if arr[i]=arr[max] then

Это не то, например в массиве
1 2 3 4 5
пятый максимальный=1.

@mre4 · 16.03.2011, 21:49 **[ТС]**

Спасибо большое. Однако не совсем верно программа работает. Почему то выводит последнее значение массива.

Pascal

const n=10;
type t_arr=array[1..n] of integer;
var
arr:t_arr;
cnt,max,i:integer;
begin
for i:=1 to n do
begin
read(a[i]);
end;
for i:=1 to n do
begin
write(arr[i],' ');
end;
writeln;
max:=1; 
cnt:=0;
for i:=1 to n do
if arr[i]>arr[max] then
max:=i;
for i:=1 to n do
begin
if arr[i]=arr[max] then
inc(cnt);
if cnt=5 then
begin
break;
end;
end;
write(arr[i]);
end.

Например, вводится массив: 4 9 1 5 7 0 6 44 91 3
Выводится: 3.

@mre4 0 / 0 / 0 Регистрация: 15.03.2011 Сообщений: 7
		1
	Поиск пятого максимального элемента массива 15.03.2011, 20:34. Показов 845. Ответов 3 Метки нет (Все метки) Здравствуйте. Прошу помочь с заданием: найти пятый максимальный элемент одномерного массива. Использование множества циклов для перебора работает, однако получается очень громоздкая программа. Сортировка тоже неактуальна. Прошу привести пример с решением в один проход цикла. Заранее спасибо. 0

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	15.03.2011, 21:16	3
	Сообщение от Dekio if arr[i]=arr[max] then Это не то, например в массиве 1 2 3 4 5 пятый максимальный=1. 1

	16.03.2011, 21:49