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

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

Question

Информатика

Эмилия

30 июня, 16:25

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

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

+4

Ответы (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.