Ответы и объяснения

Лучший Ответ!
2014-02-18T21:30:22+04:00
Program gt;
var a:array[1..7,1..7]of integer;
i,j,s:integer;
begin
for i:=1 to 7 do
for j:=1 to 7 do
begin
if(i=j)then a[i,j]:=0 else
if(i<j)then a[i,j]:=1 else
a[i,j]:=2;
end;
for i:=1 to 7 do
begin
for j:=1 to 7 do
write(a[i,j],' ');
writeln;
end;
s:=0;
for i:=1 to 6 do
s:=s+i;
writeln(s,'-кол-во эл. ниже поб. диогонали');
end.
И ОПЯТЬ: МНОГО МНОГО РАЗ СПАСИБО!!!!!!!!!!!