Делфи.Консоль.Матрица заполняется нолями при случайном генерировании

[Jane_Air]

Когда случайными числами заполняется матрица,то большая часть нули.Это как-то подозрительно. Что не так,не могу понять.

const Nmax=20;
type mass=array[1..Nmax] of integer;

procedure gMass1( var m:mass;  
                  var n:integer);
var i:integer;
begin
      randomize;
      n:=random(20);
      randomize;
      for i:=1 to n do
      m[i]:=10+random(21);
end;

procedure outMass(const m:mass;n:integer);    
var i:integer;
begin
  for i:=1 to n do begin
                      write(m[i]);
                      writeln;
                   end;
end;

[Stilet]

Не подтверждаю. У меня отработала без нулей.
Безымянный.jpg

[type_Oleg]

Сообщение от Jane_Air

... большая часть нули.Это как-то подозрительно. Что не так,не могу понять.

А я не могу понять, что же надо конкретно. Не только элементы матрицы случайные, но и количество элементов тоже случайное ?
Вот это const Nmax=20;
type mass=array[1..Nmax]
вот с этим n:=random(20); for i:=1 to n
означает, что из 20 элементов будут заполнены не все 20 а какое-то случайное количество, например 12, апоследние 8 - не определены, обычно 0.

PS Не надо randomize много раз вызывать, достаточно 1 раз на всю программу. И будет random сколько угодно раз случайно работать.
Кстати, random(20) возвращает от 0 до 19.

[Jane_Air]

Вот весь код:

program Project4;

{$APPTYPE CONSOLE}

uses
  SysUtils;

const Nmax=10;
type Matrix=array[1..Nmax,1..Nmax] of integer;

function obrob(x:integer):integer;
  begin
      writeln('vuberit sposib zapovnen masuvy: vupadkovi chusla - vvedit 1');
      writeln('                                z klaviatyru - 2');
      writeln('                                z faily - 3');
      writeln('                                zakin4utu roboty - 9');
      readln(x);
      obrob:=x;
  end;



procedure gMatr1( var m:matrix; var rd,st:integer);     {заповнення випадковими числами}
var i,j:integer;
begin
      randomize;
      rd:=random(10);st:=random(10);
      for i:=1 to rd do
        for j:=i to st do m[i,j]:=random(20);

end;





procedure gMatr2( var m:matrix;             {заповнення з клавіатури}
                  var st,rd:integer);
                  var i,j:integer;
begin
      writeln('vvedit kilkist stovp4ukiv i ryadkiv');
      readln(st,rd);
      for i:=1 to rd do
          for j:=1 to st do  begin
                              writeln('vvedit element z indexom',i,', ',j,' ' );
                              readln(m[i,j]);
                             end;
end;







procedure outMatr(const m:matrix;st,rd:integer);    {виведення на екран}
var i,j:integer;
begin
  for i:=1 to rd do begin
    for j:=1 to st do begin
                      write(m[i,j]:5);
                      end;
    writeln;
                    end;
end;




var st,rd,k,x:integer;
          m:matrix;
          f:text;
begin
k:=obrob(x);
if k=1 then gMatr1(m,st,rd);
if k=2 then gMatr2(m,st,rd);
if k=3 then begin
               assign(f,'inform.txt');
               reset(f);
            end;
if k=9 then exit;
outMatr(m,st,rd);
readln;

end.

Вот..одни нули...
Да...количество элементов тоже случайное..

[Fenex]

Если внимательно приглядеться, то можно заметить, что нули у вас занимают нижнюю левую половину, отсекаемую диоганалью. Это происходит потому, что именно так вы и написали в коде

for i:=1 to rd do
        for j:=i to st do m[i,j]:=random(20);

[Jane_Air]

Ну а какой тогда должен быть код? Я уже не знаю..

[Fenex]

Ну наверное присваивать переменной j не значение переменной i, а единицу?

[Jane_Air]

аааааааааа..
я вообще не заметила...ахаха
спасибо большое!