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