Дана квадратная матрица A[N, N], Записать на место отрицательных элементов матрицы нули, а на место положительных — единицы (программа Паскаль)

Question

Дана квадратная матрица A[N, N], Записать на место отрицательных элементов матрицы нули, а на место положительных — единицы. Вывести на печать нижнюю треугольную матрицу в общепринятом виде

Answer 1

uses crt;
var
   a:array[1..100,1..100] of integer;
   i,j,n:integer;
function b(x:integer):integer;
begin
     if x>0 then
        b:=1
     else
         b:=0;
end;
 
begin
     clrscr;
     readln(n);
     for i:=1 to n do
         for j:=1 to n do
             begin
                  clrscr;
                  writeln('BBeDuTe ',i,' ',j,'eJleMeHT');
                  readln(a[i,j]);
             end;
     for i:=1 to n do
         begin
              for j:=1 to n do
                  write(a[i,j],' ');
              writeln;
         end;
     writeln;
     for i:=1 to n do
         for j:=1 to n do
             a[i,j]:=b(a[i,j]);
     writeln;
 
     for i:=1 to n do
         begin
              for j:=1 to n do
                  write(a[i,j],' ');
              writeln;
         end;
     writeln;
 
     readln;
end.