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

Question

Информатика

Светуня

16 февраля, 02:16

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

+4

Ответы (1)

Знаете ответ на вопрос?

Юраша · 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.