| Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате |
| Форум программистов > Asm для начинающих > Массив_Т |
| Автор: Leshiy1 3.1.2011, 01:22 |
| Здравствуйте всем. Задача такая: Создать массив. Найти три максимальных элемента массива и заменить их на среднее трех. Максимумы искать за один цикл. 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. |