Помогите решить задачку в паскале )))Заполнить двумерный массив N x N случайными числами из интервала [-5;5] и сменить знак максимального элемента в каждой строке на противоположный .
Помогите решить задачку в паскале )))
Заполнить двумерный массив N x N случайными числами из интервала [-5;5] и сменить знак максимального элемента в каждой строке на противоположный .
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы