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