Дан целочисленный массив из 10 целых чисел. преобразуйте - вопрос №46035810 от livanatalya 27.03.2023 17:55

Question

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

livanatalya · Answer

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....