Question

Написать и отладить программу по следующему условию:
Дана целочисленная матрица А (m х n). Записать на место отрицательных элементов матрицы нули,
на место положительных – единицы. Вывести изменённую матрицу.

Answer 1

===== PascalABC.NET =====

begin

 var (m, n) := ReadInteger2;

 var a := MatrRandom(m, n, -99, 99);

 a.Println;

 Writeln;

 a.Transform(p -> p <= 0 ? 0 : 1);

 a.Println

end.

Answer 2

var

 A: array[1..100, 1..100] of integer;

 i, j,n,m: integer;

begin

 Writeln('Введите N and M');

 Read(n,m);

 Randomize;

 Writeln('Исходная матрица');

 for i := 1 to N do

 begin

   for j := 1 to M do

   begin

     a[i, j] := Random(-100, 100);

     write(A[i, j]:5);

   end;

   writeln;

 end;

 Writeln('Измененная матрица');

 for i := 1 to N do

 begin

   for j := 1 to M do  

   begin

     if A[i, j] > 0 then a[i, j] := 1;

     if A[i, j] < 0 then a[i, j] := 0;

     Write(a[i, j]:5);

   end;

   Writeln;

 end;

end.