• Заменить все положительные элементы противоположными в прямоугольном массиве эл. которого являются целые числа.

Ответы 1

  • const nx=20;var i,j,n:integer; D:array[1..nx,1..nx] of integer;beginwrite('Введите размер матрицы n');Readln(n);for i:=1 to n do beginfor j:=1 to n do beginD[i,j]:= random(100)-50;write(D[i,j]:4);end;writeln;end;writeln;writeln;for i:=1 to n do beginfor j:=1 to n do beginif D[i,j] >0 then D[i,j]:= D[i,j]*(-1);write(D[i,j]:4);end;writeln;end;end.
    • Автор:

      frank253
    • 6 лет назад
    • 0
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years