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

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

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

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

textual
  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;

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


СОХРАНИТЬ ССЫЛКУ