Учеба и наука

• Всего ответов: 1


Валентина
3-й в
411 отзыв
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 i:=1 to n do
for j:=1 to n do
  y[i,j]:=x[i]*sin(i*x[j]);
writeln('matrica y');
for i:=1 to n do
begin
  for j:=1 to n do
    write(y[i,j]:8);
 writeln;
end;
readln;
end.
Буду благодарна, если отметите, как лучший 
декабрь 8, 2012 г.
Ответ понравился автору

Похожие вопросы