как убрать рандом?

[dastreba]

Вот код-
Я вписываю к-ство элементов матрицы и в программе рандомно подбираються числа,а нужно чтоб я вводил сам.Как так сделать?

{$APPTYPE CONSOLE}

  var
  a: array[1..15,1..15] of integer;
  n,i,j,s: integer;
begin
  randomize;
  repeat
    write('Write the size of the matrix n (n <= 15): ');
    readln(n);
  until n in [1..15];
  writeln('matrix:');
  s:=0;
  for i:=1 to n do
  begin
    for j:=1 to n do
    begin
      a[i,j]:=random(9)+1; 
      write(a[i,j]:4);
      if i=j then s:=s+a[i,j];
    end;
    writeln;
  end;
  writeln('summ = ',s);
  readln;
end.

[p51x]

Так же, как вам показали в прошлой теме.
Так же, как вы там и тут вводите размеры.

А так удобно устроились - скопипастили у одногруппника код, а на форуме его переделают для вас, даже думать не надо.

[Serge_Bliznykov]

вот так - http://www.programmersforum.ru/showp...68&postcount=5

[dastreba]

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

Так же, как вам показали в прошлой теме.
Так же, как вы там и тут вводите размеры.

А так удобно устроились - скопипастили у одногруппника код, а на форуме его переделают для вас, даже думать не надо.

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

Я знаю что нужно изменить эту строчку

 a[i,j]:=random(9)+1;

,но хз как.У меня с этим всегда проблемы.
Хотя,может если использовать writeln and then readln,то думаю что можно что-то сделать.

[p51x]

Задание может и индивидуальной, но его часть "ввести число" абсолютно одинаково что тут, что там, что вон там.

[Serge_Bliznykov]

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

Я знаю что нужно изменить эту строчку

 a[i,j]:=random(9)+1;

,но хз как.У меня с этим всегда проблемы.

а Вы ссылку, которую я дал, точно открывали?!!

приведу пост по ссылке здесь:

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

readln(mas[i,j]); // вместо mas[i,j]:=Random(2);

не стало понятней?

что вместо

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

a[i,j]:=random(9)+1;

нужно написать

readln(a[i,j]);

?!

при желании можно, конечно, через Write или WriteLn вывести приглашение пользователю вводить данные.
чтобы он понимал, чего от него ждёт программа.

[dastreba]

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

а Вы ссылку, которую я дал, точно открывали?!!

приведу пост по ссылке здесь:


не стало понятней?

что вместо


нужно написать

readln(a[i,j]);

?!

при желании можно, конечно, через Write или WriteLn вывести приглашение пользователю вводить данные.
чтобы он понимал, чего от него ждёт программа.

Да,спасибо большое.
Я сначала ответил на сообщение,а потом уже открыл ссылку