Question

Дано натуральное число N. Получить действительную матрицу A, элементы в которой вычисляются по формуле:

Answer 1

uses crt;
const N = 5;
var a:array [1..N,1..N] of real;
i,j:integer;
begin
for i:=1 to N do
for j:=1 to N do
begin
if (i > j) then
a[i,j]:= sin(i+j);
if (i = j) then
a[i,j]:= 1;
if (i < j) then
a[i,j]:= cos(i-j);
end;
for i:=1 to N do
for j:=1 to N do
begin
write(a[i,j]:4:2,'    ');
if (j = N) then
writeln(' ');
end;
end.