[NIch]

to Strider1000...

Код:

program Matrix;
uses
 crt;
CONST
 n = 10;
var
 x : array[1..n,1..n] of integer;
 i , j : integer;
 a : real;
BEGIN
 randomize;
 clrscr;
 writeln ('Ф.И.О.');
 writeln (' Иванов Иван Иванович');
 writeln ('Группа');
 writeln (' 101');
 readln;
 for i := 1 to n do begin
  for j := 1 to n do begin
   x[i,j]:= random(n);
   write (x[i,j]);
   a := Ln(i);
   write (a);
  end;
  writeln;
  end;
 readln;
END.

Прога на паскале...ничего не далает только пишет ФИО группу и матрицу...что с матрицей делать то???