Массивы - Pascal (97390)

Формулировка задачи:

Тут такая тема: у нас дан массив из n чисел. Надо создать массив, в который будут входить числа с чётными индексами (из первго массива). Как решить задачку - это мне ясно. Но может есть какой ни будь другой способ, кроме того что бы просто делить n на 2 а потом создавать новй массив, и с помощю for i:=1 to n/2 do...? Блин, даже сформулировать вопросс правельно не смог! Ну надеюсь суть вам ясна?

Решение задачи: «Массивы»

Листинг программы

k:=0;
for i:=1 to n do n
if i mod 2=0 then 
  begin
    k:=k+1;
    y[k]:=x[i];
  end;
writeln (' OTBET: ');
for i:=1 to k do write (y[k]:3);

Объяснение кода листинга программы

Объявлены две переменные: k и n. Значение переменной k равно 0, а переменной n — это некоторое значение, которое определяется в цикле.
Запускается цикл, который выполняется от 1 до n.
Внутри цикла проверяется, является ли значение i четным числом (i mod 2=0).
Если i — четное число, то выполняется блок кода: — Значение переменной k увеличивается на 1. — Значение переменной y[k] присваивается значению переменной x[i].
После завершения цикла выводится сообщение OTBET: и значения массива y, каждое значение выводится через три пробела.