увеличить все положительные элементы массива на 1
на паскале

Если нужно увеличить на 1 все положительные элементы массива на Паскале, можно пройти по всем элементам циклом и проверить условие > 0.

Например:

pascal




program IncreasePositive;
var
  a: array[1..10] of integer;
  i: integer;
begin
  for i := 1 to 10 do
    readln(a[i]);
  for i := 1 to 10 do
    if a[i] > 0 then
      a[i] := a[i] + 1;
  for i := 1 to 10 do
    write(a[i], ' ');
end.

Как это работает

Главная часть программы:

pascal




for i := 1 to 10 do
  if a[i] > 0 then
    a[i] := a[i] + 1;

• for i := 1 to 10 — перебираем все элементы массива.

• if a[i] > 0 — проверяем, является ли текущий элемент положительным.

• a[i] := a[i] + 1 — если положительный, увеличиваем его на 1.

• Отрицательные числа и 0 остаются без изменений.

Например, если массив был:

-3  5  0  7  -2  4

то после обработки станет:

-3  6  0  8  -2  5