Составьте программу ,увеличивающую четные элементы линейного массива a[1..n] на 1

209

293

Посмотреть ответы 2

Ответы на вопрос:

CERN

Информатика

4,5(14 оценок)

Var i,n: integer; a: array [1..1000] of integer; begin read(n); for i: =1 to n do read(a[i]); //вводим элементы массива for i: =1 to n do begin if a[i] mod 2 = 0 then inc(a[i]); //прибавляем 1 к четным элементам write(a[i], ' '); end; end.