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

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

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

Решение задачи: «Записать на место отрицательных элементов матрицы нули»

Листинг программы

  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;

Объяснение кода листинга программы

Устанавливается значение переменной i равное 1.
Устанавливается значение переменной j равное 1.
Вычисляется значение элемента двумерного массива a с индексами [i,j], равное Sin(j)+Sqr(Cos(i))*(i+j). Результат записывается в a[i,j].
Выводится строка A =.
В цикле для каждого значения i от 1 до n выполняются действия:
- в цикле для каждого значения j от 1 до n выводится значение a[i,j] с дополнением до 1 десятичного знака.
- после цикла j происходит переход на новую строку.
Для каждого значения i от 1 до n выполняется цикл для каждого значения j от 1 до n.
Если значение элемента массива a[i,j] меньше 0, оно заменяется на 0.
Выводится строка A'=.
В цикле для каждого значения i от 1 до n выполняются действия:
- в цикле для каждого значения j от 1 до n выводится значение a[i,j] с дополнением до 1 десятичного знака.
- после цикла j происходит переход на новую строку.