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.
Если все правильно, отметь решение как лучшее)