В одномерном массиве А, состоящем из 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.

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