Обработка и преобразование числовых последовательностей

[Rustam2503]

Обработка и преобразование числовых последовательностей

Даны действительные числа a1,…,an. Определить второй по величине элемент,
предполагая, что все элементы различны

 

[Debianer]

Язык, хотя бы, какой? И еще... Я давал решение с описанием принципа на Дельфи, только поиск максимального элемента. Адаптировать к поиску второго по величине - 30 секунд

 

[Vladimir_S]

Адаптировать к поиску второго по величине - 30 секунд

Слишком долго. 10 секунд вполне хватит.

Даны действительные числа a1,…,an. Определить второй по величине элемент, предполагая, что все элементы различны

И Вам, сударь, также здравствовать! По Вашему запросу сообщаю, что запись в подготовительные группы детского сада, где решают подобные задачки, производится по месту жительства.

 

[Rustam2503]

Язык, хотя бы, какой?

На языке паскаля

 

[Rustam2503]

По Вашему запросу сообщаю, что запись в подготовительные группы детского сада, где решают подобные задачки, производится по месту жительства.

Грубить не обязательно. Если не знаешь, то писать не обязательно

 

[Vladimir_S]

Грубить не обязательно.

Да-да, уважаемый Рустам, простите великодушно, что поздоровался! Впредь не повторится. И как это я забыл, что мы тут все Вам по гроб жизни обязаны, а потому ожидать всяких там "здравствуйте", да "пожалуйста", да "помогите" нам не пристало! Задание дано, наше дело - каблуками прищелкнуть да выполнять.

Если не знаешь, то писать не обязательно

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

Const
 N=20;

Var
 A:Array[1..N] of Real;
 i,j,Imax:Byte;
 b:boolean;
 Max,Max1,Min:Real;

Begin
 For i:=1 to N do
  begin
   repeat
    b:=true;
    write('A[',i:2,']= ');
    readln(A[i]);
    for j:=1 to i-1 do
     if A[i]=A[j] then b:=false;
    if Not(b) then writeln('Incorrect value!');
   until b;
  end;
 Max:=A[1];
 Imax:=1;
 Min:=A[1];
 for i:=2 to N do
  begin
   if A[i]>Max then
    begin
     Max:=A[i];
     Imax:=i;
    end;
   if A[i]<Min then Min:=A[i];
  end;
 Max1:=Min;
 for i:=1 to N do
  if (A[i]>Max1) and (i<>Imax) then Max1:=A[i];
 Writeln('Maximal element is ',Max:0:3);
 Writeln('Second value element is ',Max1:0:3);
 Readln
End.