Сформируйте одномерный массив из 5 элементов (значения элементов укажт пользователь с клавиатуры). Обнулите значения всех элементов с нечетными индексами. Выведите значения одномерного массива в строку через пробел.

var

i : integer; / / объявляем переменную целочисленного типа.

arr : array [1 ... 5] of integer; / / объявляем массив.

Begin

writeln ('Введите элементы массива:'); / / вывод строки на экран.

read (arr[1], arr[2], arr[3], arr[4], arr[5]); / / считываем значения элементов массива.

for i : = 1 to 5 do / / начало цикла.

begin

if (i mod 2) > 0 then arr[i] : = 0; / / если текущий индекс нечетный, то обнуляем элемент.

write (arr[i] + ' '); / / вывод на экран через пробел значения элементов массива.

end;

End.