Заменить в матрице все отрицательные элементы числом 0, положительные элементы – числом 1

@mynameisdenar · Регистрация: 07.11.2012

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

Дана целочисленная матрица размера 5x7. Заменить в данной матрице все отрицательные элементы числом 0, положительные элементы – числом 1.

Kodzaev · 07.11.2012, 12:14

Pascal

Uses crt;
Const
  n=5;
  m=7;
Var
  x: Array[1..n,1..m] of Integer;
  i,j: Integer;
BEGIN
Clrscr;
Randomize;
Writeln('Случайная матрица:');
For i:=1 to n do
begin
  For j:=1 to m do
  begin
    x[i,j]:=Random(10)-3;
    Write(x[i,j]:4);
  end;
  Writeln
end;
Writeln('Полученная матрица:');
For i:=1 to n do
begin
  For j:=1 to m do
  begin
    If x[i,j]<0 Then x[i,j]:=0;
    If x[i,j]>0 Then x[i,j]:=1;
    Write(x[i,j]:4);
  end;
  Writeln
end;
Readln
END.

@mynameisdenar 4 / 4 / 0 Регистрация: 07.11.2012 Сообщений: 17
		1
	Заменить в матрице все отрицательные элементы числом 0, положительные элементы – числом 1 07.11.2012, 12:06. Показов 4253. Ответов 1 Метки нет (Все метки) Дана целочисленная матрица размера 5x7. Заменить в данной матрице все отрицательные элементы числом 0, положительные элементы – числом 1. 0

	07.11.2012, 12:14

Заменить в матрице все отрицательные элементы числом 0, положительные элементы – числом 1

Решение