Задание:
Получить матрицу 7 х 7 у которой первая строка задается a[1,j]=3j+4; вторая строка задается a[2,j]=j- (3- (1/j), а каждая следующая строка есть сумма двухпредыдущих.
Решение:
var a: array [1… 100,1… 100] of integer; i,j,n,m: integer; Begin n: =7; m: =7; for i: =1 to n do begin for j: =1 to m do begin if (i=1) then a[i,j]: =3*j+4 else if (i=2) then a[i,j]: =j-3+1/j else a[i,j]: =a[i-1,j]+a[i-2,j]; write (a[i,j]: 4,'); end; writeln; end; End.
Знаете другой ответ?