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

var A: array [1… 12] of integer; //Массив, состоящий из 12 целых чисел i: integer; begin for i: =1 to 12 do //Вводим элементы массива begin writeln ('Введите А[', i, ']'); readln (a[i]); end; write ('Исходный массив: '); for i: =1 to 12 do {Распечатываем исходный массив и заменяем все положительные четные элементы на 5} begin write (a[i], '); if (a[i] > 0) and (a[i] mod 2=0) then a[i]: =5; end; writeln; write ('Измененный массив: '); for i: =1 to 12 do //Распечатываем измененный массив write (a[i], '); writeln; {Переход на новую строку, чтобы при следующем запуске программы информация выводилась с новой строки}end. Если все правильно, отметь решение как лучшее)