Дана матрица размера 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.