Задача с массивом.

[Настюня]

Задача: Найти второй по величине элемент массива (массив заполнить случайными числами).
Вот были мысли, но, увы, пока не очень что-то она работает:

program massiv12;
uses crt;
var massiv:array[1..10]of integer;
    i,t,max,l:integer;
begin
clrscr;
randomize;
max:=-20;
l:=0;
t:=1;
for i:=1 to 10 do
    begin
    massiv[i]:=random(30)-15;
    if max<massiv[i]then max:=massiv[i];
    repeat
    l:=max-t;
    t:=t+1;
    until
    l=massiv[i];
    end;
writeln('второй по величине элемент = ',l);
end.

[Stilet]

Сортировать массив не хочешь?

[Настюня]

Пожалуй, что не хочу. Вся фишка в том, что задачу нужно решить как раз без сортировки массива. В этом-то и весь прикол.
P.S. А так было бы слишком просто

[veniside]

а че просто не завести второй максимум?

http://ideone.com/cfi5S

[TinMan]

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

а че просто не завести второй максимум

Veniside, идея в принципе годная, но воплощение хромает..
Попробуй прогнать свою прогу сначала на таком массиве:
2, 2, 1
- а потом на таком:
1, 2, 2
И попробуй объяснить разницу.. ))

Сортировка тут в принципе может помочь, но не то, чтоб так уж сильно.
В этой задаче есть один ключевой момент: корректная реализация поиска второго по величине элемента обязательно должна включать в себя диагностику наличия такового (его запросто может и не быть). Уяснение, как ее сделать, поможет искать сам второй максимум.

[veniside]

> воплощение хромает

ага, лажанул немного, вот так вроде работает.

[ByAlex]

Вот как-то так!

uses crt;
const
  n=5;
var
  A:array[1..n] of Integer;
  i, max, raz, pos:Integer;
begin
  write('Massive is - ');
  for i:=1 to n do
  begin
    A[i]:=Random(50)-5;
    write(A[i],' ');
  end;

  max:=A[1];
  for i:=2 to n do
  begin
    if A[i]>max then
      max:=A[i];
  end;

  raz:=2147483647;
  for i:=1 to n do
  begin
    if (max<>A[i]) and (raz > (max - A[i])) then
    begin
      raz:=max - A[i];
      pos:=i;
    end;
  end;

  Writeln('The second max is - ',A[pos]);
  Readln;
end.