Записать на место отрицательных элементов матрицы нули - Pascal (80212)

Формулировка задачи:

Записать на место отрицательных элементов матрицы A(10;10) нули и вывести ее на печать в общепринятом виде. a(ij)=(sin(j)+cos^2(i)*(i+j)


textual

Код к задаче: «Записать на место отрицательных элементов матрицы нули - Pascal (80212)»

  for i:=1 to n do for j:=1 to n do
    a[i,j]:=Sin(j)+Sqr(Cos(i))*(i+j);
  WriteLn('A =');
  for i:=1 to n do begin for j:=1 to n do Write(a[i,j]:7:1); WriteLn; end;
  for i:=1 to n do for j:=1 to n do
    if a[i,j]<0 then a[i,j]:=0;
  WriteLn('A''=');
  for i:=1 to n do begin for j:=1 to n do Write(a[i,j]:7:1); WriteLn; end;
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.


СДЕЛАЙТЕ РЕПОСТ

9   голосов, оценка 3.667 из 5

Источник
Похожие ответы