В одномерном массиве А, состоящем из 12 целых чисел, все положительные

var

  A: array [1..12] of integer;  //Одномерный массив из 12 целых чисел

  i: integer;  

begin

  for i:= 1 to 12 do  //Вводим элементы массива с клавиатуры

  begin

    writeln('Введите A[', i, ']');

    readln(A[i]);

  end;

  write('Исходный массив:  ');  //Выводим начальный массив

  for i:= 1 to 12 do

    write(A[i], '  ');

  writeln;  //Перевод на новейшую строчку

  write('Модифицированный массив:  ');

  for i:= 1 to 12 do   Изменяем все положительные элементы на 5 и распечатываем полученный массив

  begin

    if A[i] gt; 0 then A[i]:= 5; 

    write(A[i], '  ');

  end;

  writeln;  Переход на новейшую строку, чтобы при последующем запуске программки информация выводилась с новейшей строки

end.

Если все правильно, отметь решение как лучшее)