Школа-ш*кола*
учит* и ель
ко***м***п**ью**тер*******
mov ax,1
mov bx,ax
<span> mov cx,99
</span><span>a: add ax,2
add bx,ax
cmp ax,cx
</span><span> jne a
mov ax,bx
</span><span> mov bl,10
</span><span> mov cx,0
</span><span>b: div bl ; в ah - частное, al - остаток
</span><span> add al,48 ; в al - код младшей цифры
</span><span> push al
</span><span> inc cx
</span><span> cmp ah,0
</span><span> jne b
</span><span> ; вывод на экран через BIOS
</span><span>c: mov ah, 0eh
</span><span> pop al
</span><span> int 10h ; вывод символа
</span><span> dec cx
</span><span> jnz c
</span><span> ; завершение программы
</span><span> mov ah, 4ch
</span><span> mov al,00h
</span><span> int 21h
</span><span>
</span>
Program asd;
Const n=4;
m=3;
Var A:array[1..n,1..m] of integer;
B,jd,id:array[1..n] of integer;
i,j,k,min,ii,jj:integer;
BEGIN
For i:=1 to n do
begin
For j:=1 to m do
begin
A[i,j]:=2+Random(8);
Write(A[i,j],' ');
end;
Writeln;
end;
Writeln; ii:=1;
For i:=1 to n do
begin
min:=1000;
for j:=1 to m do
begin
jj:=1;
If A[i,j]<=min then
begin
min:=A[i,j];
id[i]:=i;
jd[i]:=j;
end;
end;
B[i]:=min;
end;
For i:=1 to n do
begin
Writeln('Min: ',B[i],'. Строка: ',id[i],'; Столбец: ',jd[i],';');
end;
<span>END.</span>
Enter.....................