Написать и отладить программу по следующему условию:
Дана целочисленная матрица А (m х n). Записать на место отрицательных элементов матрицы нули,
на место положительных – единицы. Вывести изменённую матрицу.
Ответы
Ответ дал:
0
===== 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.
Приложения:
![](https://st.uroker.com/files/1ed/1edb77822268067f9a32f7857c85e2af.jpg)
Ответ дал:
0
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.
Приложения:
![](https://st.uroker.com/files/1ed/1edb77822268067f9a32f7857c85e2af.jpg)
Вас заинтересует
1 год назад
1 год назад
7 лет назад
7 лет назад
8 лет назад