В матрице все положительные элементы заменить на 1, все отрицательные на -1

@Yala1 · Регистрация: 18.10.2010

Author24 — интернет-сервис помощи студентам

В данной целочисленной матрице размером 6*4 все положительные элементы заменить на 1, все отрицательные на -1, нулевые элементы оставить без изменения. Напечатать исходную и полученную матрицы.
Заранее Спасибо ))

@pryda · 18.10.2010, 17:00

Pascal

for i:=1 to 6 do
for j:=1 to 4 do
if m[i,j]>0 then m[i,j]:=1 else 
if m[i,j]<0 then m[i,j]:=-1 else m[i,j]:=0;

@Puporev · 18.10.2010, 17:02

Pascal

1 2	if m[i,j]>0 then m[i,j]:=1 else if m[i,j]<0 then m[i,j]:=-1;//ноли не меняем...

@Yala1 · 18.10.2010, 17:16 **[ТС]**

pryda, Напиши плз программу полностью только начали изучать просто массивы. https://www.cyberforum.ru/pasc... ost1037574

@pryda · 18.10.2010, 17:20

Pascal

program prg;
var m:array[1..6,1..4]of integer;
    i,j:integer;
begin
for i:=1 to 6 do
for j:=1 to 4 do
read(m[i,j]);
writeln('Исходная матрица');
for i:=1 to 6 do
begin
     for j:=1 to 4 do
     write(m[i,j]:4);
     writeln;
end;
for i:=1 to 6 do
for j:=1 to 4 do
if m[i,j]>0 then m[i,j]:=1 else
if m[i,j]<0 then m[i,j]:=-1 else m[i,j]:=0;
writeln('Полученная матрица');
for i:=1 to 6 do
begin
     for j:=1 to 4 do
     write(m[i,j]:4);
     writeln;
end;
end.

@Yala1 · 18.10.2010, 17:23 **[ТС]**

pryda, Спасибо.

@Puporev · 18.10.2010, 17:24

Не по теме:

Сообщение от Yala1

Побольше бы таких людей.

Откуда они возьмутся если такие как ты учиться не желают...

@Yala1 0 / 0 / 1 Регистрация: 18.10.2010 Сообщений: 42
		1
	В матрице все положительные элементы заменить на 1, все отрицательные на -1 18.10.2010, 16:56. Показов 1110. Ответов 6 Метки нет (Все метки) В данной целочисленной матрице размером 6*4 все положительные элементы заменить на 1, все отрицательные на -1, нулевые элементы оставить без изменения. Напечатать исходную и полученную матрицы. Заранее Спасибо )) 0

@Yala1 0 / 0 / 1 Регистрация: 18.10.2010 Сообщений: 42
	18.10.2010, 17:16 [ТС]	4
	pryda, Напиши плз программу полностью только начали изучать просто массивы. https://www.cyberforum.ru/pasc... ost1037574 0

@Yala1 0 / 0 / 1 Регистрация: 18.10.2010 Сообщений: 42
	18.10.2010, 17:23 [ТС]	6
	pryda, Спасибо. 0

@Puporev
	18.10.2010, 17:24 В матрице все положительные элементы заменить на 1, все отрицательные на -1 #7
	Не по теме: Сообщение от Yala1 Побольше бы таких людей. Откуда они возьмутся если такие как ты учиться не желают... 2