Ввести двумерный массив . Каждый второй элемент, в том случае, если он отрицателен,...

Question

Ввести двумерный массив . Каждый второй элемент, в том случае, если он отрицателен, возвести в квадрат. Массив вывести до и после преобразования.

Comments

каким образом вводится этот массив?

---

А(N*M)

---

я спрашиваю каким макаром ввод осуществляется, а не обьявление массива

---

1)Входные данные:N = 3 M = 3

---

да я хз короче

---

ок будет рандом

Answer 1

Const
    n = 3;
    m = 3;

var
    i, j: integer;
    a, b: array[1..n, 1..m] of integer;

begin
    for i := 1 to n do
    begin
        for j := 1 to m do
        begin
            a[i, j] := random(20) - 10;
            write(a[i, j]:3, ' ');
        end;
        writeln;
    end;
    writeln;
    
    for i := 1 to n do
    begin
        for j := 1 to m do
        begin
            if ((i + j) mod 2 = 1) and (a[i, j] < 0) then
                a[i, j] := sqr(a[i, j]);
            write(a[i, j]:4, ' ');
        end;
        writeln;
    end;
end.