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

Pascal ABC

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.