Навигационные ссылки
<span>Перекрестные ссылки
</span><span>Ассоциативные ссылки </span>
Const n=8; m=6;
var a:array[1..n,1..m] of integer;
i,j:integer;
begin
for i:=1 to n do
begin
for j:=1 to m do
begin
a[i,j]:=j;
write(a[i,j]:3);
end;
writeln;
end;
end.
Результат:
1 2 3 4 5 6
1 2 3 4 5 6
1 2 3 4 5 6
1 2 3 4 5 6
1 2 3 4 5 6
1 2 3 4 5 6
1 2 3 4 5 6
1 2 3 4 5 6
Номер 4
program Other;
var
a,b: integer;
begin
a:=5;
b:=0;
if a = 1 then
{Next action...}
else
begin
b:=b+a;
a:=a-1;
end;
end.
0..........................................................................