Question

Дан двумерный массив. Каждому элементу массива сменить знак на противоположный.

Answer 1

const nx = 20;var x: array[1..nx, 1..nx] of real; i, j, k,n,r,t: integer; begin  Writeln('Введите размер матрицы n');Read(n);  Randomize;   Writeln('Исходный массив');  for i := 1 to n do begin    for j := 1 to n do begin    x[i, j] := Random(25)-10;    Write(x[i, j]:4);    end;       Writeln;    end; Writeln;    Writeln('Измененный массив');  for i := 1 to n do begin    for j := 1 to n do begin      x[i, j]:= x[i, j] *(-1);      Write(x[i, j]:4);    end;    Writeln;  end;   end.