Pascal

[Марина09]

Даны натуральное число m, целые числа a1,...,am и целочисленная квадратная матрица порядка m. Нужно все элементы матрицы, преобразовать по правилу : отрицательные элементы заменить на – 1, положительные на 1, а нулевые оставить без изменения.

 

[MagentaTiger]

Это типа задача ?

const m=100;

var i,j:Integer;
 matrix:array [1..m][1..m] of integer;

{ заполним матрицу }
Randomize;
for i:=1 to m do
 for j:=1 to m do
    matrix[i][j]:=random(100)-50;
   

for i:=1 to m do
 for j:=1 to m do
   begin
   if  matrix[i][j]>0 then  matrix[i][j]:=1;
   if  matrix[i][j]<0 then  matrix[i][j]:=-1;
   end;

в чем собственно задача-то, такие задачи наверное в классе 5-ом решают ...