Заполнить матрицу из 3 строк и 3 столбцов случайными числами. каждому элементу строки добавляем ее номер строки (к элементам первой строки +1, во второй +2, и к третьей +3) и вывести на экран.

program matrix;  

uses crt; type matrix=array[1..3,1..3] of real; var m: matrix;

procedure printmatrix(mas: matrix); var j,k: integer; begin      for k: =1 to 3 do            begin                for j: =1 to 3 do                      begin                          write(mas[k,j]: 7: 2);                       end;                 writeln;           end; end;

procedure auto; var i,j: integer; begin      randomize;       for i: =1 to 3 do            begin                for j: =1 to 3 do                      begin                        m[i,j]: =25+random(21)+i;                       end;             end; end;  

begin 

      clrscr;  

      auto;

      printmatrix(m);

      readkey;

end;

присваивание - это действие в результате которого переменная величина получает определенное значение.