Программа.Матрица. Паскаль.как получить матрицу такого вида в паскале? 1 1 1   1    1...  1 2 3   4    5 ...  1 3 6   10  15...  1 4 10  20  35...  ...   1 столбик и первая строчка равны 1последующ. получаются путем сложения ве...

(делаю масив 10на10)   program Matrix; var a:array [1..10,1..10] of integer; i,q,b,f:integer; begin b:=0; f:=0; q:=1;  for i:=1 to 10 do begin a[i,q]:=1; end; i:=1;  for q:=1 to 10 do begin a[i,q]:=1; end;  for i:=2 to 10 do begin for q:=2 to 10 do begin  b:=q-1; f:=i-1;  a[i,q]:=a[i,b]+a[f,q]; end; end; readln end.