Помогите решить задачку в паскале)))

Заполнить двумерный массив N x N случайными числами из интервала [-5; 5] и сменить знак максимального элемента в каждой строке на противоположный.

Question

Информатика

Роза

25 декабря, 05:53

Помогите решить задачку в паскале)))

Заполнить двумерный массив N x N случайными числами из интервала [-5; 5] и сменить знак максимального элемента в каждой строке на противоположный.

+2

Ответы (1)

Знаете ответ?

Машаня · Answer 1

Const N = 10;

var i, b: integer;

a: array [0 ... N] of integer;

begin

for i : = 0 to N - 1 do

begin

a[i] : = random (10) - 5;

if (a[b] > a[i]) then b : = i;

end;

a[b] : = a[b] * - 1;

for i : = 0 to N - 1 do writeln ('[', i, '] = > ', a[i]) ;

end.