3Max_T

[Leshiy1]

Здравствуйте всем. Задача такая: Создать массив целых чисел. Найти 3 максимальных элемента этого массива и заменить их на среднее трех. Максимумы искать за один цикл

Program Max;
 Uses Crt;
 const n=25;
 var a:array[1..n] of integer;
     i,crc:integer;
 begin
   writeln; textcolor(14);
   clrscr; randomize;
   for i:=1 to n do begin
   a[i]:=integer
   (Random(10));
   write(a[i]:3);
   end;
   asm
   lea si, a
   mov cx, n
   mov dx, [si]
 
   end;
   write(crc);
   Readkey;
   end.

Как найти 3 максимальных числа за один цикл

[airyashov]

создать отсортированный массив индексов