Дан массив, состоящий из целых чисел. Нумерация частей начинается с 0.

program z_z1;
const v = 11; // общее количество
var qq: Array [0..v] of Integer; // описываем массив
s , jj, k:integer; // тут переменные типа целочисленного
Begin
writeln( Начальный массив: );
for jj:=0 To v do
qq[jj]:= random (68)-25;
for jj:= 0 to v do // полученный массив выводим через пробел
write ( qq[jj], );
// перебегаем на новую строчку
writeln;
For jj:=1 To v do

if jj mod 2 = 0 then write(qq[jj], ); // ответ

end.