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

Question

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

Answer 1

 

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;