Bài tập 8 trang 79 SGK Tin học 11

Chương trình sau đây thực hiện những gì?

program BT8;

const NMax = 50;

type Mass = array[1..NMax,0..NMax-1] of real;

var A: Mass;

    i, j, N: byte; C: real;

begin

   write('Nhap N = ? '); readln(N);

   for i:= 1 to N do

     for j:= 0 to N-1 do

           begin

                 write('A[',i,',',j,']= '); readln(A[i,j])

           end;

    for i:= 1 to N do

      for j:= 0 to N-1 do

           begin

  C:= A[i,j];

  A[i,j]:= A[N-i+1,j];

  A[N-i+1,j]:= C

  end;

    for i:= 1 to N do

      begin

           for j:= 0 to N-1 do

           write(A[i,j]:5:2,' ');

           writeln

      end;

end.