В одномерном массиве А, состоящем из 12 целых чисел, все положительные четные элементы заменить пятеркой.
program pr;
var a:array[1..12] of integer;
i:integer;
begin
writeln('vvedite massiv');
for i:=1 to 12 do readln(a[i]);
for i:=1 to 12 do
if (a[i]>0) and (a[i] mod 2 =0) then a[i]:=5;
for i:= 1 to 12 do
write(a[i]:5);
readln
end.
Буду благодарна, если отметите