program pr;
const n=5;
var y:array[1..n,1..n] of integer;
x:array[1..n] of integer;
i,j:integer;
begin
writeln('vvedite matricu X');
for i:=1 to n do
readln(x[i]);
for j:=1 to n do
y[i,j]:=x[i]*sin(i*x[j]);
writeln('matrica y');
write(y[i,j]:8);
writeln;
end;
readln;
end.
Буду благодарна, если отметите, как лучший