Задать вопрос
9 января, 19:24

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

+1
Ответы (1)
  1. 9 января, 22:42
    0
    Const nx=20; var i, j, n:integer; D:array[1 ... nx, 1 ... nx] of integer;

    begin

    write ('Введите размер матрицы n') ; Readln (n) ;

    for i:=1 to n do begin

    for j:=1 to n do begin

    D[i, j]: = random (100) - 50; write (D[i, j]:4) ; end; writeln; end; writeln; writeln;

    for i:=1 to n do begin

    for j:=1 to n do begin

    if D[i, j] >0 then D[i, j]: = D[i, j] * (-1) ; write (D[i, j]:4) ; end; writeln; end; end.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Заменить все положительные элементы противоположными в прямоугольном массиве эл. которого являются целые числа. ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы