3 максимальных элемента массива (pascal)

[deceiver]

найти 3-и наибольших елемента массива (а1;а2;....а30)

[alex_fcsm]

Можно отсортировать элементы по убыванию и выписать три первых.

[capta1n]

program pascall;
const
 n = 5;
var
 a : array [1..n] of integer;
 max : integer;
 i,k,j : byte;
begin
  randomize;
  for i:=1 to n do a[i]:=random(10)-5;
  a[1]:=5;
  for i:=1 to n do write (a[i],'|');
  writeln;
  max:=a[1];
  k:=1;
  for i:=2 to n do
   if a[i]>max then
   begin
     max:=a[i];
     k:=i
   end;
  writeln ('max1= ',max);
  if max<>a[2] then
               begin
                 max:=a[2];
                 j:=2
               end
               else
               begin
                 max:=a[1];
                 j:=1
               end;
  for i:=1 to n do
   if i=k then continue
   else
    if a[i]>max then
    begin
      max:=a[i];
      j:=i
    end;
  writeln ('max2= ',max);
  if max<>a[3] then max:=a[3]
               else
                if max<>a[1] then max:=a[1]
                             else max:=a[2];
  for i:=1 to n do
   if (i=k) or (i=j) then continue
   else
    if a[i]>max then max:=a[i];
  writeln ('max3= ',max);
  readln
end.

[alex_fcsm]

Если первый элемент будет максимумом то неправильно работает. Объяснить почему?

[capta1n]

да да - ошибка, спасибо сейчас пофиксю : просто инициализацию счетчиков изменил с 2 на 1

[alex_fcsm]

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

P.S. Проще всего сделать сортировку и не мучаться ИМХО

[capta1n]

в ну вот да, согласен, сейчас сделаем. PS: мучений не было, просто заменил все остальные на a[2] и a[3]
все сделал, правда распоясал код Но все же без сортировки

[Serge_Bliznykov]

не-а.. мучения продолжаются... :-)
попробуйте для такого исходного набора :-)

  a[1]:=2;
  a[2]:=12;
  a[3]:=2;
  a[4]:=0;
  a[5]:=-5;

[capta1n]

program pascall;
const
 n = 5;
var
 a : array [1..n] of integer;
 max : integer;
 i,k,j,f : byte;
begin
  randomize;
  for i:=1 to n do a[i]:=random(10);
  for i:=1 to n do write (a[i],'|');
  writeln;
  max:=a[1];
  j:=1;
  for i:=1 to n do
   if a[i]>max then
   begin
     max:=a[i];
     j:=i
   end;
  writeln ('max1=',max);
  if j<>n then k:=j+1
          else k:=1;
  max:=a[k];
  for i:=1 to n do
   if i=j then continue
          else
           if a[i]>max then
           begin
             max:=a[i];
             k:=i
           end;
  writeln ('max2=',max);
  if k<>n then
          begin
            f:=k+1;
            if (f=j) and (j<>n) then inc(f)
                                else f:=(j+k) mod n
          end
          else f:=(j+k) mod n;
  max:=a[f];
  for i:=1 to n do
   if (i=k) or (i=j) then continue
                     else
                      if a[i]>max then max:=a[i];
  writeln ('max3=',max);
  readln
end.

[Serge_Bliznykov]

уже лучше. в данном случае всё работает.
но стоит чуть изменить содержимое массива, и всё! алгоритм даёт сбой - будет неверный результат
что ваша программа даст для массива с отрицательными числами? :

  a[1]:=0;
  a[2]:=-1;
  a[3]:=-2;
  a[4]:=-3;
  a[5]:=-4;

и, честно говоря, мне абсолютно непонятно Ваше желание обойтись без простого, эффективного, красивого и понятного алгоритма, предложенного alex_fcsm в сообщении #2 - отсортировать массив и взять нужное число чисел с начала (хоть три максимума надо, хоть 4, хоть 5 - алгоритм НЕ меняется. да и проще программа получается:

const
 n = 5;
 HowMax = 3;
var
 a : array [1..n] of integer;
 z : integer;
 i,k : byte;
begin
  randomize;
  for i:=1 to n do a[i]:=random(10);

  for i:=1 to n do write (a[i],'|');
    writeln;

  for k:=1 to n-1 do
    for i:=1 to n-k do
        if a[i]<a[i+1] then begin
          z:=a[i+1];
          a[i+1]:=a[i];
          a[i]:=z;
    end;

  for i:=1 to HowMax do
    WriteLn(i:1,'-й max = ',a[i]);

  readln
end.