Question

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

Answer 1

program pr;
var 
a: array [1..5] of integer;
i: integer;
begin
for i:= 1 to 5 do
read(a[i]);
for i:= 1 to 5 do
write(a[i]:5);
writeln;
for i:=1 to 5 do
if a[i] mod 2 <>0 then a[i]:=0;

for i:= 1 to 5 do
write(a[i]:5);
end.