Поиск второго максимума.

[Святослав Марков]

Здравствуйте, у меня возникла проблема. Нужно найти второй максимум в массиве(элемент, который в отсортированном по убыванию массиве стоял бы вторым), однако при компиляции выводит только первый элемент массива. Прошу помощи в поисках ошибки. Работал в паскале.

const n=6;
var a:array[1..n] of integer;
i,k,max,max2:integer;
begin
for i:=1 to n do readln(a[i]);
max:=a[1];
for i:=1 to n do
if a[i]>max then max:=a[i];
for k:=1 to max do
for i:=1 to n do begin
if a[i]=max-k then max2:=a[i]; break; end;
writeln(max2);
end.

[Stilet]

Работал в паскале.

Не ты. )

только первый элемент массива.

writeln(max:10,max2:10);

И кстати я бы не так этот код делал.

const n=6;
var a:array[1..n] of integer;
i,k,max,max2:integer;
begin
for i:=1 to n do begin
 readln(a[i]);
 if (i=1) or (max2<a[i]) then max2:=a[i];
 if (i=1) or (max<max2) then begin k:=max; max:=max2;max2:=k;end;
end;

writeln(max:10,max2);
end.

Это с потолка. Не проверял, но смысл передает.

[Вадим Мошев]

Не читал сообщения и листинги. Советую то, что сразу пришло в голову - при поиске второго максимума игнорировать максимальный элемент, найденный при первом поиске...

[Demius]

Сообщение от Святослав Марков

Здравствуйте, у меня возникла проблема. Нужно найти второй максимум в массиве(элемент, который в отсортированном по убыванию массиве стоял бы вторым), однако при компиляции выводит только первый элемент массива. Прошу помощи в поисках ошибки. Работал в паскале.

const n=6;
var a:array[1..n] of integer;
i,k,max,max2:integer;
begin
for i:=1 to n do readln(a[i]);
max:=a[1];
for i:=1 to n do
if a[i]>max then max:=a[i];
for k:=1 to max do
for i:=1 to n do begin
if a[i]=max-k then max2:=a[i]; break; end;
writeln(max2);
end.

Вопрос: обязательно ли использовать массив? Эта задача отлично решается и без него...

[Serge_Bliznykov]

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

Вопрос: обязательно ли использовать массив?

Demius, странный вопрос...

задача состоит в том, чтобы:

Нужно найти второй максимум в массиве

[Poma][a]

Осмелюсь предположить, что Demius, осмелился предположить, что ТС осмелился привести свою интерпретацию задания, ошибочно добавив туда фразу про массив..

[Аватар]

Ой сикока смелых. Ромаха начудил ))