random

[writer_88]

Всем доброго времени суток. Помогоите решить задачу: заполнить матрицу случайными числами от -10 до 10. пробовал использовать random(), но там случайные числа от 0.

[kaljan775]

c++

a[i]=rand()%20 -9;

[writer_88]

ссори. мне бы желательно на Pascal ABC...

[DRAgon™]

a[i,j]:=Random(1)+(-10)

[writer_88]

Сообщение от DRAgon™

a[i,j]:=Random(1)+(-10)

что-то не получается..

 program pr6_v8;
uses CRT;
var
   Arr: array[1..5,1..10] of integer;
   i,j,x:integer;
begin
     cls;
     //Zapolnenie massiva
     for i:=1 to 5 do
     begin
          for j:=1 to 10 do
          begin                             
               Arr[i,j]:=Random(1)+(-10);
          end;
     end;
     
     //Vivod elementov massiva
     for i:=1 to 5 do
     begin
          for j:=1 to 10 do
          begin
               write(Arr[i,j], '   ');
               if j=10 then writeln();
          end;
     end;
end.

Все элементы равны -10.

[ImmortalAlexSan]

Подключаем файл Math и юзаем RandomRange(-11,11);

[Mad_Cat]

a[i,j]:=Random(21)-10;

[DRAgon™]

ах да,точно

[writer_88]

всем выражаю огромную благодарность :-). Mad_Cat - отдельное спасибо.