Помогите, пожалуйста решить данный двумерный массив
В паскале
тупо в лоб я знаю как написать, а вот чтобы красиво...
var
a: array[1..6, 1..6] of integer;
begin
for var i := 1 to 6 do
for var j := 1 to 6 do
if (i = 1) or (j = 1) then a[i, j] := 1
else a[i, j] := a[i, j - 1] + a[i - 1, j];
write(a[i, j]:4, ' ')
end;
writeln;
end
end.
Короче вот такая байда, это в лоб, а чтобы красиво, нужно думать, а думать не очень хочется =).
Все равно, спасибо