Квадратная матрица

[anna_]

заполнить квадратную матрицу порядка N по следующему правилу: первый столбец и первая строка заполнены единицами, а каждый из остальных элементов равен сумме двух своих соседей: сверху и слева.

должно получится как я понимаю:

1 1 1 1
1 2 3 4
1 3 6 10
1 4 10 20

program task;
uses crt;
var A:array[1..10,1..10] of integer;
i,j,N:integer;
begin
clrscr;
writeln('Vvedite razmernost massiva (NxN)');
write('N = ');
read(n);
??????
for i:=1 to n do
begin
for j:=1 to n do
begin
write (A[j,i],'  ');
end;
writeln;
end;
readln;
end.

подскажите пожалуйста как оформить цикл, чтоб было так как написано в задании

[.Phoenix]

Попробуй этот код:

for i:=2 to n do
for j:=2 to n do
a[i,j]:=a[i-1,j]+a[i,j-1]

А стоп, щас подумаю как 1ый столбец с 1ой строкой заполнить.

[eoln]

  for i := 1 to n do
  begin
    A[i, 1] := 1;
    A[1, i] := 1
  end;
  for i := 2 to n do
  for j := 2 to n do
  A[i, j] := A[i - 1, j] + A[i, j - 1];

[.Phoenix]

В общем код такой:

var A:array[1..10,1..10] of integer;
i,j,N:integer;
begin
writeln('Vvedite razmernost massiva (NxN)');
write('N = ');
readln(n);
For i:=1 to n do
for j:=1 to n do
if (i=1) or (j=1 )then a[i,j]:=1;
for i:=2 to n do
for j:=2 to n do
a[i,j]:=a[i-1,j]+a[i,j-1];

for i:=1 to n do
begin
for j:=1 to n do
begin
write (A[j,i],'  ');
end;
writeln;
end;
readln;
end.

[Chudo4258]

вот так попробуй:

program task;
uses crt;
var A:array[1..10,1..10] of integer;
i,j,N:integer;
begin
clrscr;
writeln('Vvedite razmernost massiva (NxN)');
write('N = ');
read(n);
for i:=1 to n do
 for j:=1 to n do
  if (i=1) or (j=1) then A[i,j]:=1
                         else A[i,j]:=A[i,j-1]+A[i-1,j];
for i:=1 to n do
begin
for j:=1 to n do
begin
write (A[j,i],'  ');
end;
writeln;
end;
readln;
end.

[anna_]

Спасибо огромное!

[anna_]

подскажите пожалуйста еще что за задача написана здесь?
нужно сформулировать задание, если дан код

program  krn;
const m=100;
type mass=array[1..m] of integer;
var a: mass;
i, j, n, k: 1..m;
s: integer;
begin
write('razmernost massiva');
readln(n);
randomize;
for i := 1 to n do
begin a[i]:=-15+random(31);
write(a[i], ' ')
end;
writeln;
s:= 0;
for i:= 1 to n-1 do
begin
k:=1;
for j:=i+1 to n do
if a[i]=a[j] then  k:= k + 1;
if  k=1   then  s:=s+a[i]
end;
writeln(s);
end.

[eoln]

Создать массив размерностью n (ввести с клавиатуры), заполнить случайными числами в интервале [-15; 15]. Подсчитать сумму элементов после которых нет элементов равных этому элементу.

Или подсчитать сумму элементов не учитывая повторов (то же самое что и первый вариант, но в другой формулировке)

[anna_]

Спасибо я на что то такое и думала тока не знала как сформулировать)