Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Низкоуровневое программирование > Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 03.12.2010, 20:20   #1
Leshiy1
Форумчанин
 
Аватар для Leshiy1
 
Регистрация: 24.09.2009
Сообщений: 104
По умолчанию Массив_Т

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

Код:
Program Max;
 Uses Crt;
 const n=25;
 var a:array[1..n] of integer;
     i: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
 
 
 
   end;
   Readkey;
   end.
Скажите как Со вставками ассемблера на паскале найти максимальные элементы?
Leshiy1 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск