Технический форум

Технический форум (http://www.tehnari.ru/)

- Delphi, Kylix and Pascal (http://www.tehnari.ru/f43/)

- - Pascal (http://www.tehnari.ru/f43/t102827/)

Марина09

03.06.2015 17:40

Pascal

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

MagentaTiger

03.06.2015 17:55

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

Код:

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-ом решают ...

Часовой пояс GMT +4, время: 04:57.