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

program BT8;

const NMax = 50;

type Mass = array [1…NMax, O..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 0 to N-1 do

begin

write(‘A[i,j; readln(A[i,j ] )

end,

for i:= 1 to N do

for j:= 1 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 : =1 to N— 1 do write (A [ i, j ] : 5 : 2 , ‘ ‘);

writeln

end;

End.

Viết chương trình nhập từ bàn phím số nguyên dương N và đưa ra màn hình số hạng thứ N của dãy Phi-bo-na-xi. Chương trình của bạn thực hiện với giá trị lớn nhất của N là bao nhiêu?