разброс с отрицательными и положительными числами

[Leshiy1]

Здравствуйте всем.
Как вывести матрицу RandomОМ в разброс с отрицательными и положительными числами

Program Matrix2;
 Uses Crt;
 label a1;
 const n=3; m=5;
 var a:array[1..n, 1..m] of byte;
     s1:array[1..n] of integer; {novuy massiv}
     i,j,s:integer;
 begin randomize; clrscr;
   textcolor(14);
   for i:=1 to n do begin writeln;
         for j:=1 to m do begin
         a[i,j]:=random(10)-5;
         write(a[i,j]:2);
       end; writeln; end;
       writeln;
  asm
 
  end;
 
  readkey;
  End.

[Valio]

Твой код её выводит.... наверное ибо нет у меня паскаля.
В чём трабл?

PS: не считая всяких лишних asm, label и пр....

[Leshiy1]

PS: не считая всяких лишних asm, label и пр....
Эти мне нужны для продолжения программы

А вот write(a[i,j]:2); не выводит отрицательные в разброс с положительными

[Valio]

Аааа.... так вот что такое "разброс"....

 write(' ', a[i,j])

Тебе также не надо указывать оругление ибо массив объявлён как byte
a:array[1..n, 1..m] of byte;

[Leshiy1]

аа точно, как-то я на это внимание не обратил. Теперь все выводит как надо

[Leshiy1]

Может еще поможешь

[Valio]

Чем интересно?
Я могу только сказать что Byte это диапазон 0 - 255 и как оно будет реагировать на отрицательное число я неочень знаю. Покрайней мере в литературе про отрицательные значения ничего не говорят. Яб поставил Integer. (вроде как прога должна вылетать с ошибкой....)

[Leshiy1]

Вставки ассемблера надо. И вывести массив с суммами отрицательных чисел

[Valio]

Ты задание напиши полностью...

[Leshiy1]

В матрице определить сумму положительных чисел каждого столбца записав их в новый массив.

Вот массив выводится паскалевским кодом, теперь надо остальные операции сделать на ассемблере.