Const n=8;
var a:array[1..n,1..n] of integer;
i,j:integer;
begin
for i:=1 to n do a[i,i]:=n-i+1;
for i:=1 to n do
begin
for j:=1 to n do write(a[i,j]:2);
writeln;
end;
end.
Пример:
8 0 0 0 0 0 0 0
0 7 0 0 0 0 0 0
0 0 6 0 0 0 0 0
0 0 0 5 0 0 0 0
0 0 0 0 4 0 0 0
0 0 0 0 0 3 0 0
0 0 0 0 0 0 2 0
0 0 0 0 0 0 0 1
Будет выведена последовательность цифр 123123123.
Во внешнем цикле задан троекратный повтор, во внутреннем - вывод j при изменении j от 1 до 3.
1.
Начало
1. Оденься
2. Посмотри в окно
3. Если идёт дождь
То 4. Возьми зонтик
5. Возьми деньки
6. Пойди в магазин
7. Купи хлеб
8. Вернись домой
Конец
3.
"Вперёд 5"
"Вперёд 5"
"Назад 2"
"Назад 2"
"Назад 2"