3 максимума из N чисел

[Artem1987]

Всех с наступающим. Перед новым годом совсем отупел.
Нужно найти сумму 3-наибольших чисел в последовательности из N целых чисел,
Потел над кодом, а он не работает, почему?
Смысл таков: находим максимум и после начинаем отнимать от него 1,пока не упремся во 2-й максимум и т.д
Зарание спасибо!!!!


program summax;
var
a : array [1..250] of integer;
i, n, sum : integer;
m1, m2, m3 : integer;
begin
m1:=a[1];
sum:=0;
begin
write('введите количество чисел ');
readln(n);
for i:=1 to n do
readln(a[i]);
end;
begin
write('исходный массив');
for i:=1 to n do
write(a[i]:5);
readln;
end;
begin
for i:=1 to n do
if m1<a[i] then
m1:=a[i];
writeln('max=',m1); {вывод максимума}
end;
begin {начало определения следующих максимумов}
m2:=(m1-1);
if m2=a[i] then m2:=m2 else
while m2<>a[i] do m2:=(m2-1);
end;
begin
m3:=(m2-1);
if m3=a[i] then m3:=m3 else
while m3<>a[i] do m3:=(m3-1);
end;
begin
sum:=m1+m2+m3;
writeln('сумма=',sum);
end;
readln;
end.

[Карась]

Смысл таков: находим максимум и после начинаем отнимать от него 1,пока не упремся во 2-й максимум и т.д

Уникальный алгоритм.. А если массив будет иметь допустим такие значения:
1 2 3 1 1 1 1 999999 1 1 2 3 1 2 3 2 1 0

Сколько твоя программа будет отнимать пока с 999999 дойдёт до 3 ?
Я думаю много... а точнее 999996 раз прогонится цикл.

Вот один из способов нахождения суммы трёх максимумомов....
ЗЫ: Заполнять массив руками, это очень плохо... ибо долго Я пользую рандом.

program Project1;

{$APPTYPE CONSOLE}

var
    a : array [1..250] of integer;
    x, z, n, i, Max, Sum :integer;

begin
{Заполним и ввыведем массив на экран}
Write('Kol-vo elementov massiva: '); Readln (n);
  Randomize; Writeln ('Massiv: ');
    For i := 1 to n do begin a[i] := Random(10);
      Write(a[i], ' '); End;

Writeln;

{Найдём сумму трёх наибольших элементов}
z := 1;
For x := 1 to 3 do begin Max := a[1];
  For i := 2 to n do begin
    if a[i] > max then begin max := a[i]; z := i;End; End;
      Sum := Sum + max;
        a[z] := 0; z := 1
End;

{Выведем немного изменённый массив(можно убрать, я просто смотрел как работает) и сумму}
For i := 1 to n do Write (a[i], ' '); Writeln;
 Writeln (sum);
   Readln;
end.

[puporev]

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

program tri_max;
uses crt;
var a:array[1..50] of integer;
n,i,x,j:integer;
begin
clrscr;
write('n=');readln(n);
randomize;
for i:=1 to n do
  begin
   a[i]:=random(10);
   write(a[i],' ');
  end;
readln;
for i:=1 to n-1 do
for j:=1 to n-1 do
if a[j]<a[j+1] then
   begin
      x:=a[j];a[j]:=a[j+1];a[j+1]:=x;
   end;
for i:=1 to 3 do
write(a[i],' ');readln
end.