Написать программу в паскале, которая формирует матрицу nXn в следующем виде
У меня есть программа, которая формирует матрицу в виде
1 1 1 1 1 1 1 1 1
2 2 2 2 2 2 2 2 2
3 3 3 3 3 3 3 3 2
4 4 4 4 4 4 4 3 2
5 5 5 5 5 5 4 3 2
6 6 6 6 6 5 4 3 2
7 7 7 7 6 5 4 3 2
8 8 8 7 6 5 4 3 2
9 9 8 7 6 5 4 3 2
10 9 8 7 6 5 4 3 2
И программа для нее
va
n,i,j: integer
a: array[1..20,1..20] of integer
begi
write('Введите размерность матрицы')
readln(n)
for i:=1 to n d
begi
for j:=1 to n d
begi
if i+j a[i,j]:=n-j+1
write(a[i,j]:4)
end
writeln
end
end.

Предыдущий
вопрос Следующий
вопрос