Написать и отладить программу по следующему условию:
Дана целочисленная матрица А (m х n). Записать на место отрицательных элементов матрицы нули,
на место положительных – единицы. Вывести изменённую матрицу.
Дана целочисленная матрица А (m х n). Записать на место отрицательных элементов матрицы нули,
на место положительных – единицы. Вывести изменённую матрицу.
More Questions From This User See All
Answers & Comments
===== 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.
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.