Программирование в Delphi 7. помогите плиз))

Question

Сформировать массив Y из положительных элементов массива X, имеющих четные индексы. 
Формирование массива Х по формуле sin(a+1)/i + (-1)^i - (i*b+5)

оконное приложение

Сергей Абреев · Accepted Answer

Консольное, оконное приложение?

Дмитрий · Answer

k:=1; 
for j:=1 to length(x) shr 1 do 
if x[j shl 1]>0 then begin 
y[k]:=x[j shl 1]; 
inc(k); 
end;