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

Дан целочисленный массив из 10 целых чисел. Преобразуйте его, прибавив к нечетным числам значение последнего элемента. Последний элемент массива оставьте без изменений.(В Паскале)

  1. Ответ
    Ответ дан Yegor55

    var
      m : array [1..10] of Integer;
      i : Integer;
    begin

    // Здесь заносишь значения в массив.

      for i := 1 to 9 do
        if ( m[i] mod 2 ) <> 0 then m[i] := m[i] + m[10];

    end.

Самые новые вопросы