Вывод ответа #1864069442

могу ошибаться, оч долго не трогал паскаль, так что косяки в синтаксисие возможны
но думаю это может выглядеть как то так:

const n=20;
uses crt;
var A:array[1..n,1..n] of real;
B:array[1..n1,1..n] of real;
i:byte;
j:byte;
begin
randomize;
{заполняем массив случайными числами}
for i:=1 to n do
for j:=1 to n do
begin
A[i,j]:=random(100);
end;

{заполняем второй массив }
{Bi,j=i*A[I,j]/2*sin(A[I,j])}

for i:=1 to n do
for j:=1 to n do
begin
B[i,j]:=i*A[I,j]/2*sin(A[I,j])
end;

{выводим на экран}

for i:=1 to n do
begin
for j:=1 to n do
begin
write(B[i,j])
end;
writeln();
end;

readkey;

end;