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

121

183

Посмотреть ответы 2

Ответы на вопрос:

olgagolova2007

Информатика

4,7(41 оценок)

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.