VCT nhập mảng 2 chiều, in ra các hình vuông con kích thước k*k Giúp mình ngay bây giờ ạ T_T

0 bình luận về “VCT nhập mảng 2 chiều, in ra các hình vuông con kích thước k*k Giúp mình ngay bây giờ ạ T_T”

1. program mang;

   var i,j,n: integer;

   a: array[1..100,1..100] of char;

   begin

   write(‘Nhap n: ‘);

   readln(n);

   for i:= 1 to n do

   begin

   for j:=1 to n do 

    begin 

   a[i,j]:=’*’;

   end;

   end;

   begin

   for i:= 1 to n do

   begin 

   for j:= 1 to n do

   begin

   write(‘ ‘,a[i,j],’ ‘);

   end;

   writeln;

   end;

   end;

   readln

   end.

   Bình luận

2. program mang;

   var i,j,n: integer;

   a: array[1..100,1..100] of char;

   begin

   write(‘Nhap n: ‘);

   readln(n);

   for i:= 1 to n do

   begin

   for j:=1 to n do 

    begin 

   a[i,j]:=’*’;

   end;

   end;

   begin

   for i:= 1 to n do

   begin 

   for j:= 1 to n do

   begin

   write(‘ ‘,a[i,j],’ ‘);

   end;

   writeln;

   end;

   end;

   readln

   end.

   xin hay nhất

   Bình luận