Задача №904 Увеличить на 2

Задана последовательность целых чисел. Увеличить на 2 каждый ее неотрицательный элемент.

Входные данные

В первой строке задано количество элементов последовательности n (n ≤ 100). Во второй строке заданы сами элементы, значение каждого из которых по модулю не превышает 100.

Выходные данные

Вывести в одной строке n чисел: новые значения элементов последовательности в том же порядке, в котором они были заданы.

Решение

var i, n, k: integer;
begin
  read(n);
  for i := 1 to n do
  begin
    read(k);
    if k >= 0 then
      write(k + 2)
    else 
      write(k);
    write(' ');
  end;
end.

Смотрите также: