profile
Опубликовано 6 лет назад по предмету Информатика от sarine9

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

  1. Ответ
    Ответ дан HRAshton
    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.
Самые новые вопросы