В одномерном массиве А, состоящем из 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] > 0 then A[i]: = 5;

write (A[i], ' ') ;

end;

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

end.

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