Question

Дана матрица размера m×n. Заменить отрицательные элементы этой матрицы на 0, а положительные на 1 и вывести полученную матрицу по строкам.
Pascal ABC

Answer 1

var
a:array[1..m,1..n] of integer;
i,j:integer;
write('Размерность матрицы m и n: ');
readln(m,n);
for i:=1 to m do
for j:=1 to n do
readln(a[i,j]); {Заполняем матрицу}
for i:=1 to m do
for j:=1 to n do
if a[i,j]<0 then a[i,j]:=0 else a[i,j]:=1;
for i:=1 to m do begin
writeln;
for j:=1 to n do
write(a[i,j]:4);
end;
end.