Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  bb
Language: PASCAL
Code:
program p1;
var a:array[1..100,1..100]of integer;
i,j,n:integer;
f:boolean;
begin read(n);
f:=true;
for i:=1 to n do
for j:=1 to n do                   
a[i,j]:=f;
for i:=1 to n do
for j:=1 to n do
if (i>j) and (i+j>n+1) then
a[i,j]:=false;
for i:=1 to n do 
begin
for j:=1 to n do
write(a[i,j]:3);
writeln;
end;
end.

          
Comments: