Помогите, пожалуйста решить данный двумерный массив

0 голосов
18 просмотров

Помогите, пожалуйста решить данный двумерный массив


image

Информатика (35 баллов) | 18 просмотров
0

В паскале

0

тупо в лоб я знаю как написать, а вот чтобы красиво...

Дан 1 ответ
0 голосов

var

 a: array[1..6, 1..6] of integer;

begin

 for var i := 1 to 6 do

 begin

   for var j := 1 to 6 do

   begin

     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.

(2.5k баллов)
0

Короче вот такая байда, это в лоб, а чтобы красиво, нужно думать, а думать не очень хочется =).

0

Все равно, спасибо