fork download

copy

Program M_POWER;
 var a, b, c, b1, c1: array[ 1..100 ] of integer;
     Ia, i, j, k, n: integer;
begin
 readln( Ia );     					{ Количество строк }
 for i:= 1 to Ia do
  begin 
   for j:= 1 to Ia do
    read( a[ i, j ] );
   readln;
  end;            					{ Сама матрица }
 readln( n );						{ Степень } 
 
 for i:= 1 to Ia do
  for j:= 1 to Ia do
   c[ i, j ]:= a[ i, j ];				{C = A }
 for i:= 1 to Ia do
  for j:= 1 to Ia do
   if i = j then
    b[ i, j ]:= 1
   else b[ i, j ]:= 0;					{ B - еденичная матрица }
 
  while n <> 0 do
   if n mod 2 = 0 then
    begin
     n:= n div 2;
     for i:= 1 to Ia do
      for j:= 1 to Ia do
       for k:= 1 to Ia do
        c1[ i, j ]:= c1[ i, j ] + c[ i, k ] * c[ k, j ];
     for i:= 1 to Ia do
      for j:= 1 to Ia do
       begin
        c[ i, j ]:= c1[ i, j ];
        c1[ i, j ]:= 0;
       end;
    end
   else
    begin
     n:= n - 1;
     for i:= 1 to Ia do
      for j:= 1 to Ia do
       for k:= 1 to Ia do
        b1[ i, j ]:= b1[ i, j ] + b[ i, k ] * c[ k, j ];
     for i:= 1 to Ia do
      for j:= 1 to Ia do
       begin
        b[ i, j ]:= b1[ i, j ];
        b1[ i, j ]:= 0;
       end;
    end;
  for i:= 1 to Ia do
   begin
    for j:= 1 to Ia do       
     writeln( b[ i, j ], ' ' );
    writeln;
   end;
end.

prog.pas: In main program:
prog.pas:9: error: subscripted object is not an array or string
prog.pas:16: error: subscripted object is not an array or string
prog.pas:16: error: subscripted object is not an array or string
prog.pas:20: error: subscripted object is not an array or string
prog.pas:21: error: subscripted object is not an array or string
prog.pas:30: error: subscripted object is not an array or string
prog.pas:30: error: subscripted object is not an array or string
prog.pas:30: error: subscripted object is not an array or string
prog.pas:30: error: subscripted object is not an array or string
prog.pas:34: error: subscripted object is not an array or string
prog.pas:34: error: subscripted object is not an array or string
prog.pas:35: error: subscripted object is not an array or string
prog.pas:44: error: subscripted object is not an array or string
prog.pas:44: error: subscripted object is not an array or string
prog.pas:44: error: subscripted object is not an array or string
prog.pas:44: error: subscripted object is not an array or string
prog.pas:48: error: subscripted object is not an array or string
prog.pas:48: error: subscripted object is not an array or string
prog.pas:49: error: subscripted object is not an array or string
prog.pas:55: error: subscripted object is not an array or string

Standard output is empty