Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Массив_Т 
:(
    Опции темы
Leshiy1
Дата 3.1.2011, 01:22 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 7
Регистрация: 3.1.2011

Репутация: нет
Всего: нет
Здравствуйте всем.

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

Program Max;
 Uses Crt;
 const n=25;
 var a:array[1..n] of integer;
     i,crc,max1,max2,max3:integer;
     addr_max1,addr_max2,addr_max3,addr_maxn: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


   end;

   Readkey;
   end. 
PM MAIL   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Asm для начинающих"
MAKCim
  • Проставьте несколько ключевых слов темы, чтобы её можно было легче найти.
  • Не забывайте пользоваться кнопкой КОД.
  • Телепатов на форуме нет! Задавайте чёткий, конкретный и полный вопрос. Указывайте полностью ошибки компилятора и компоновщика.
  • Новое сообщение должно иметь прямое отношение к разделу форума. Флуд, флейм, оффтопик запрещены.
  • Категорически запрещается обсуждение вареза, "кряков", взлома программ и т.д.

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, MAKCim.
 
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Asm для начинающих | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0396 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.